gaa 1 
C180 Common Modules Mathematical Library (T™4ML) ERS 
85/08/23 


C180 
Common Modules Mathematical Library (CMML) 


ERS 


Revision £ 


August,» 1985 


CONTROL DATA CORPORATION — COMPANY PRIVATE - Revision E 
. . i ad 


Ci80 Common Modules Mathematical Library (CMML) ERS | 
85/08/23 


120 PREFACE 


1.20 PREFACE 


1.1 PREFACE TO REVISION E 
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Revision —€ of the Common Modules Mathematica! tLibrary {(CMML) External 
Reference Specification (ERS) describes CMML capabilities at Release 
Llele3. This revision incorporates features that were specified in 
approved DAPs and other corrections and clarifications to the text since 
the fast complete update of the ERS. 


The mathematical functionss COTANs EXTBs and INS3 (DAP $4945) are new 
features for Release 1.1.3. Their error nunbers have been changed from 
the ones specified in the DAP. The VAX_to_7189 conversion routines (DAP 
$4821) were released at 1.1.2. 


1.2 SCOPE 


The C180 Mathematical Librarys as defined in this documents is called 
the Common Modules Math Library (CMML)»s but is commonty referred to as 
MATHLIB or the Math Library. It is a collection of mathematical 
functions and routiness numeric and data conversion routiness, and 
assembly tanguage support system (ALSS) routines that provide access to 
some machine tanguage instruction capabilities not otherwise available 


to non-assembly language programs. The nuneric conversion and assembly. 


language support routines wilt be referred tno Joint!y as the CMML Common 
Support routines in this document. 


This document gives the external specifications of the CMML but also 
includes some internal details because of its: frequent use by product 
set developers. The ALSS routines formerty soecified in DCS document 
$3410» have been incorporated here because they are now a standard part 
of the CMML. The CMML common support modules are discussed separately 
from the mathematical functions because they differ in linkage interface 
and error handling. 


Three appendices are included. Appendix A contains the CYBIL constant 
and type declarations needed by the nuneric-conversion = and ALSS 
routines. Appendix 8 contains the error nessage templates used by the 
mathematical functions and routines. Appendix C contains a tisting of 
the file used in converting CMML's common deck PL from MADIFY format to 
SCU format. 


This document does not include information 99 the algorithms used by 
CMML routines or error analyses of these routines. The algorithms are 
in a state of fluxs and the too!s needed for’ error analyses do not 
currently exist. This information wit! be oublished in the CMML 
Reference Manual. 
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1.2 SCOPE 


For performance reasonss most of the CMML routines will be written in 
C180 assembly tanguagee Some of the accessory and error processing code 
will be written in CYBIL. 


1.3 REFERENCES 
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» Cyber 180 Mainframe Model-Independent SGenearal Design Specification 
(MIGDS) DCS Log Id ARH1700. 


« Cyber 180 System Interface Specification (STS) DBCS Log Id $2196. 
« CMML Assembly-Language Support Systen CALSS) OCS Log Id $3410, 

2 VAX Fite Migration DAPs DCS Log Id $4743. 

» CMML VAX to C180 Conversion Routines JA2s DCS Log Id $4821. 


» CMML ERS C180 Product Set and CDC FORTRAN DAP. NCS Log Id $4945. 
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The Mathematical Routines of CMML are used to evaluate commonly 
occurring mathematical Functions and operationss and those required by 
the various language standards. All mathematical routines will be 
written in C180 Assembly Language (exceptions to this will be specified 
in the IPP update). 


Many of the functions of the Math Library will be implemented in-line by 
C180 products. The in-tine version of a function returns the same 
result (for the same argument fist) as the Wath Library. 


2e2 NUMBER TYPES 
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The mathematical routines deal with computations upon Four different 
number types: 


1. INTEGER 


An integer number is a one-word right-justified two's complement 64<—bit 
representation of a value with a magnitude in the range from —-2**63 to 
2**63—-1. 


{Reference the C180 MIGDS»s section 2222?.) 
Al! integers are considered standard formse 
2e SINGLE (single precision floating point) 


A singie precision floating point number consists of a sign bits S» 
which is the sign of the fractions a signed biased exnponent (15 bits)» 
and a fraction (48 bits) which is also called a coefficient or a 
mantissa. (Reference the C180 MIGDS»s section 2.4.1.) 

Single precision Floating point (real) numbers in the C180 consist of 
two typess {not including coefficient sign)» standard and non-standard, 


The standard numbers are those with axoonents in the range 
3000(16).-4FFFI16)» inclusives which have a non-zero fraction. Standard 
numbers also come in two types» normalized and unnormalized. A 


normalized standard number has a one in bit position 16 (ieee the most 
significant bit of the fraction). 


The range in magnitudes M»y covered by standards normalized single 
precision numbers is 


Se oe am Hh 
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2*#-4097 <= M <= (1-2##-48) & 244095 
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(Approximately 14.4 decimal digits: of precision). 
Non-standard floating point numbers have many reporesentations; 
+/-INF £ $95000000000000000(16) 1} 
+/-Infinite Floating point numbers having exponents in the range 


5000(16)..6FFF{15). 
+/-IND [ $»7000000000000000(16) ] 
+/-Indefinites Floating point numbers having exoonents in the range 
INDEF 7000(16).-.7FFF(16). 


Zero (271) Zero: Floating point numbers having exeonents in the 
range 0000(16)..O0FFF(16). 


Zero (72) Underfiow, zero: Fioating pofnt numbers having 
exponents in the range 1000(15).).2FfF(16). 


Zero (23) Zero: An unnormalized floating coint number with a 
zero fraction and a standard exponent. 


Zero {(0) Zero: A sign bit followed by 53 vero bits. 


(Reference the C180 MIGDS»s Section 2 242142-2642123 and Table 2.4-1 for a 
full discussion of floating point numbers.) 


34 DOUBLE (precision floating point) 

A double precision floating point number corsists of two wordss both of 
which are singie precision numberse The coefficient of the second word 
Is considered to be an extension of tha fraction of the first word» 
yielding a 96-bit fraction. 


The exponent of the second word must be identical to that of the first 
words 


The type of the first single number deternineas the type of the double 
number. 


The range in magnitudes Ms covered by standards normalized double 
precision numbers is 


2**-4097 <= M C8 (1-2*%*-96) * 2**4995 
{Approximately 28.9 decimal digits of orecision), 


4. COMPLEX 
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A complex number consists of two words»s each a single precision floating 
point number. The first word represents the real oart of the complex 
numbers the second word represents the imaginary part. 


A complex number is considered to be +/-INDEF if efther the real or. 
imaginary part is #+/-INDEF. Similartys a connptex number is considered 
to be +/~-INF if either the real or imaginary part ts +#+#/-INF. 


263 GENERAL RULES 
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The following general rules apply to the use of these number forms in 
computational operations within the Math Library: 


Ruje number one: 
Uniess specifically documented otherwise» if a standard number of the 
appropriate type is employed in a computational overations a standard 
number of the appropriate type will result. The documented exceptions 
to this cover such things as computing an answer which exceeds the 
limits of the standard formss or perforning a mathematically invalid 
operation. 


Rule number two: 
Unless specifically documented otherwises i? either? 


ae) A non-standard numbers other than zeros (%9)» is emptoyed in a 
computational operations or 


be) The documented limits in rule nunber one above are exceeded, 
error handling (see below) will occur. The documented exceptions 
to this cover some cases wherein various non-standard numbers are 
within the domain of the function. 


These two rules define the limits of CDC suoport in the area and aiso 
the completeness of the supporting documentation. 


264 DOCUMENTATION CONVENTIONS 


Certain conventions and definitions are observed in this document. 


« Symbolic names are always delimited by blankss and any alphabetic 
jetters appearing therein are in upp2r' case. 


e Both * and two quantities separated by a comna and enclosed in 
parentheses denote juxtaposition and are used in referring to 
compiex or doubie precision quantitiess: 
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» All values given are in decimals unless otherwise noted. When bit 
configurations are listeds the radix nav be tisted in parentheses 
after the string. 


« An argument tist is an ordered n=-tupte@ of arguments [(€X1 » eves 
Xnjy where X1l » ees» Xn are the arguments in order. For 
conveniences we identify arguments with corresponding one-member 
argument fists. 


e The domain of an entry point is the collection of argument Jists 
for which that entry point has been desianed to return meaningful 
results without generating an error condition,? 


» The range of an entry point is the cotlection of results obtained 


by entering members of the domain into the entry point. 


e« Arguments of trigonometric functions and results of inverse 
trigonometric functions are measured in radians, unless otherwise 
noted. 


« The symbol * denotes multtiptflications / denotes divisions and *%* 
denotes exponentiation. 


205 LINKAGE INTERFACE 


The mathematicai routines are functions that return a single vatue to 
the calter. Their tinkage interface conforns' to the SIS conventions for 
scalar functions whose values are of known length tess than or equal to 
128 bits. 


Two modes of entry are provided; a call-bvy-reference linkage and a 
cali-<by-value linkage. Under call—-by~-references register A4 points to 
the actual parameter fist. Under catl-by-values the successive words of 
the successive arguments are taid out contiguously tn the X registers» 
beginning with X2»s as described for register call functions in the SIS. 
For examples the calling sequence to MLPSVITOO uses registers X2s X3:s 
X49 where X2 hoids the integer bases and X3*X4 holds the doubie 
precision exponent. (This is in accor4daree with the SIS for C180 
software.) Calls to the mathematical routines are by CALLSEG or CALLREL 
C180 instructions, and return is via the C189 RETURN instruction. 


Upon normal returns result values are returned in registers XE and XF. 
64-bit results (type INTEGER and SINGLE) are returned in Xf. 128=bit 
results (type DOUBLE and COMPLEX) are returned in XE*XF Calso denoted 


(XE»XF)). For type DOUBLE» the most significant part will be in XE. 
For type COMPLEX» the the real part will ba in X&, 
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206 ERROR HANDLING 
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Error recovery is the response of the €180 Math Library to the detection 
of an argument fist or result outside the domnatn of the function. There 
are two modes of error recoverys depending on whether the calling 
sequence was call-by-reference or call-by-value. 


20601 CALL-BY-REFERENCE 


Under call-by-references the Math Library will generate the special 
software condition MATH _LIBRARY_ERROR. 


When an error occurs in a CMML function under call-=-by-references the 
following events occur: 


1. An appropriate abnormai status is seat into global variabie 
MLVSSTATUS (of type OSTSSTATUS). 


2e The appropriate default error vatue (lindicated in the function 
descriptions) is olaced in the result register{s) (XF or XE*XF). 
Register A4 will contain the pointer to the the parameter list 
passed to the cali-by-reference routire. Register XD will contain 
the number of parameters for the call-by-reference routines for 
examples, 1 for MLPSRSINs 2 for AL®$R27TO07.' The User Condition 
Register will be cleared of ati arithnetic errors, 


3e Ungated routine MLPSERROR_PROCESSOR is called with all registers 
saved in the save areas 


40 MLPSERROR_PROCESSGR calls PMPSCAUSE_LCONDITION with user condition 
MATH _LIBRARY_ERROR and a pointer to the previous save area (the 
registers saved by the call-by~reference routine) as the condition 
descriptor. 


5e YUPpon return from PMPSCAUSE_CONDITIIN,s MLPSERROR PROCESSOR is 
exited if the returned status is nornal. Otherwise PMPSABORT is 
calied with one of two statuses. Status MLVESSTATUS is used if 
there is no established condition handier for’ MATH_LIBRARY_ERRDR. 
Otherwise the status returned from PM®SSAUSE_ CONDITION is used. 


be The call-by-reference routine Immediately returns if it is 
returned toe 


The mathematical library error numbers and message templates are listed 
in Appendix B. Alf error numbers starting with 67 ahich are currently 
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undefined are reserved for Future expansion of the Math Library. 
20602 CALL~-BY-VALUE 


Under cali-by-vatues a trap interrupt will be generated in the attempt 
to evaluate the function with a bad argunent list. No further support 
will be supplied. Note that the call<—by-value linkage is designed for 
maximum speed when the argument fist is within the domain of the 
function. 


The error information regarding error nrunber and error result is 
applicabie oniy to the cali by reference antry soint. The value in the 
XF for XE*XF) register is undefined in the case of a trap interrupt 
occurring during execution of call-py-valua.’ 


2ef RELIABILITY AND PERFORMANCE 


It is desirable that computed results be accurate to the full number of 
bits available to the result. Certain argunent reductions may make this 
prohibitively expensives e.ge» that for’ DOSINs OCOS» DTAN where the 
argument exceeds 2**47. Double precision argument reduction is done in 
some cases for single precision functions in order to preserve precision 
and previous fibrary capabilities but can influence performance. 


In questions of timing versus memory requirenentss differential 
Proportional decreases in average execution time wilt be considered at 
feast twice as important as the same differential proportional decreases 
in memory sizee The disappearance of Floating-s0int instructions which 
round requires extra work at certain points of algorithms. Lack of 
rounding in the floating-point operations: nakes exact duplication of 
results obtained with the C170 Math Library tnoossibles in general. As 
a results programs calling math routines which are iflt-conditioned with 
respect to use of those routines will show differences in output. In 
other programss any differences will be minor: 


2e8 MATHEMATICAL FUNCTION SPECIFICATIONS 


In the following tables the set {N} represents the union of the sets 
Call standard numbers}, {0}5 {£Z1}9 €Z2}» {73}. (N alone will denote the 
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fist of alti members of {N}. This is done to simplify the notation for 


union. For examples (€Nsx} will denote the union of €N} and {x}.) 
The set {I} is the set of all representable integers. (Agains I alone 
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wifl dencte the fist of ali representable integers.) When the result is 


defined as a single or double precision nunbers the set {I} is the set 
of all single or doubie numbers {€{N} such that the decimal representation 
has only zeros to the right of the decimal sofint. The symbol * <=—- ™" js 


used to indicate "is a member of". 


All references to "tog" are natural foqarithms {base ee)» unless 
otherwise indicated. 
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228.1 ABS 

Function: ABS 

Description? Absolute value of a single orecision number. 

Entry points: call-by-reference ML?9SRABS»s ABS 
call-by-value MLOSVABS 

Arquments: Sl - a single precision number. 

Domain: Si <= fall singte numbers} 

Result: R=—- a single precision number: 

Range: R <= {all non-negative single numbers} 


Error results: no errors are generated by ASS. 
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220 MATHEMATICAL FUNCTIONS AND ROUTINES 


20822 ACTOS 


2e8e2 ACQOS 
Function? 
Description: 


Entry points: 


Arguments: 


Domain? 


Result: 


Range: 


Error results: 


Error Number 


1 eee te ND ee Ee ie em A eae 


670001 
670002 
670003 


ACOS 
Inverse circular cosine of a singte precision number. 


calt-by-reference MLPSRACOSs ACOS 


call-by-vatue MLOSVACOS 
$1 - a single precision nuvdear. 
$l <= {fn 3 tnt < 1.2} 
R —- a single precision number.) 
R €=- {Nn 3 0 €¢ n €¢ pi} 
Arguments Result 
Sl = +/-INDEF +IND 
$1 = +/-INF +IN) 
7S13.> 1. +IND 
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2e8e3 AIMAG 
Function: AIMAG 
Description: Imaginary part of a complex number, 
Entry points: calil-by-reference MLPSRAIMAGs AIMAG 


Arguments: 


Domain: 


Result: 


Range: 


Error results? 


call-by-value MLPSVAIMAG 
Zi - a comptex number. 


71 <= {all comptex numbers}. 


R - a single precision number. 


R <= {all single numbers} 


no errors are generated by AIMAG 
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20304 AINT 
Function: AINT 
Descriotion: Integer part of a single pracision number. 
(Truncation) 
Entry points: call-by-reference MLPSRAINTs AINT 
cali-by-value MLOSVAINT 
Arguments: $1 - a singte precision number. 
Domains: S1 <- {N} 
Result: R - a single precision number, 
Range: R <- {I} 
Error results: 
Error Number Arguments Result 
670004 $1 = +/-INDEF +IND 


670005 S1 = +/-INF +IND 
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28-25 ALOG 
Function: ALOG 
Description: Natural fogarithm of a single precision number. 
Entry points: cail-by-reference MLPSRALOGs ALOG 
call-by-value MLPSVALOG 
Arguments: $l - a single precision nunber,. 
Domain: Sl <- {n 3: nD Oe} 
Result: R —- a single precision number,’ 
Range: R <= {n 2 tni < 4095*109(7)} 
Error results: 
Error Number Arguments Result 
670006 $1 = #/-INDEF +INo 
670007 $1 = +/-INF +IND 
670008 Sl = 0. +IND 
§ 70009 $1 < 0. FIND 
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208.6 ALODG1O 

Function: ALOG10 

Description: Common fiogarithm of a single orecision number. 

Entry points: call-by-reference MLOSRALOG1O,s ALOG10 

call-by-vaiue ML°SVALOG10 

Arguments: S1 - a single precision number. 

Domain: Si <= {n i: n> 0.2} 

Result: R - a single precision number. 

Range: R <~ €n 2 tni < 4095*f09(2)} 


Error results: 


Error Number Arguments Result 


670010 SL = +/-INDEF + INO 
670011 Sl = +/-INF +IND 
670012 S1 = 0» +IND 
670013 S1 < 0. +IND 
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228.7 AMOD 
Function: AMOD 
Description: Remainder of a single precision auotient. 
Entry points: call-by-reference MLPSRAMODs» AMOD 
calt-by-vatue MLPSVAMGD 
Arguments: $1 - a single precision nunber. 
$2 —- a single precision number. 
Domain: Sl <= {N} 
and $2 €- {n 3: n =/ 02} 
and S1/S2 <- {N} 
Result: R—- a single precision number. 
Range: R <= {N} 


Error resuits: 


Error Number Arguments Result 
670014 =. S1 = +/-INDEF +INO 
670015 S2 2 +/-INDEF #INo) 
670016 Sl = +/-INF +IN)D 
670017 $2 = +/~-INF #IN9) 


670018 $2 


670019 . S1/S2 = +/~INF +TND 
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22828 ANINT 


Functions ANINT 

Description: Nearest integer to a single orecision number. 

Entry points: cali-by~reference MLPSRANINTs ANINT 
cali-by~-vatue MLPSVANINT 

Arguments: Sl - a single precision nunber,. 

Domain: SL <- {N} 

Result: R - a single precision number. 

Range: R <= {I} 


Error results: 


Error Number Arguments Resuit 


670020 S1 = #/-INDEF +IND 
670021 Sl = +/-INF +INO 
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22829 ASIN 
Function: ASIN 
Description: Inverse circular sine of a stngle orectision number. 
Entry points: call-by-reference MLPSRASINs ASIN 
call-by-~value MLPSVASIN 
Arguments: $1 —- a single precision number. 
Domain: Sl <—- {n 3 tnt < 1.2} 
Result: R - a single precision number, 
Range: R <= {nt tnt < pis2} 
Error results: 
Error Number Arguments Result 
670022 Sl = #+/~-INDEF +IND 
670023 $1 = #+/-INF 4INon 


670024 tS1i > le . +IND 
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228210 ATAN 

Function: ATAN 

Description: Inverse circular tangent of a single precision number. 

Entry points: cali-by-reference MLPSRATANs ATAN 

call-by-vatue MLPSVATAN 

Arguments: $1 - a single precision nunber. 

Domain: Sl <~ {Ny +/-INF} 

Result: R - a single precision number. 

Range: R <= {n 2 ini < pis2} 


Error results: 


Error Number Arguments Result 


670025 $1 = +/-INDEF +IND 
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2e8.11 ATAN2 
Function: ATAN2 
Description: Inverse circular tangent of a single orecision auotient,. 
Entry points: call-by-reference MLPSRATAN2s ATAN2 
call=-by~value MLPSVATAN2 
Arguments: $1 - a single precision nurber. 


$2 - a single precision nunber. 


Domain: Sl <= {Ns +/-INF} 

and $2 <—- {Ns #/-INF} 

and {$1s$2) 2=/ (0.90.) 

and ($1952) 2/ {4#/INFst+/ INF} 
Result: R=- a single precision number. 


Range: R <= {n 3: =-pi < n < pi} 


Error resuits: 


Error Number Arguments Result 


— 670026 Sl = +/-INDEF +IND 
670027 $2 2 +/~INDEF +IND 
670028 Sl = #+/=INF and $2 = +/-INF +IND 
670029 Sl = $2 = O-« +IND 


670030 S1/$2 = #/~INF and S2 =/ 9 +IND 
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208212 ATANH 
Functions ATANH 
Description: Inverse hyperbolic tangent of a single precision number. 
Entry points; cali-by-reference MELPERATANHs ATANH 
call-by-value MLPSVATANH 
Arguments: $1 ~- a single precision nunber. 
Domain: Sl <~ {In 2: tnt < 1.2} 
Result: R =~ a single precision number.: 


Range: R <= {N} 


Error results? 


Error Number Arguments Result 
670031 Sl = +/-INDEF +IND 
670032 Sl = #/-INF +INo 
670033 331i > Le +IND 
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228.13 CABS 


Function: CABS 


Description: 


Entry points: 


Arguments? 


Domains: 


Result: 


Absoftute vaiue of a complex number. 


cali-by-reference MLPSRCABS,»s CABS 
call-by-value MLOEVCABS 

Z1 - a complex number. 

ZL <— Clalyn2) 2 (nNL*RE2 + N2kE2VERLI 2 C= {N}} 


R - a single precision number. 


Range: 


Error resuits: 


Error Number 


Co eletesetssseatnensastiaansatienseacttions odenne Rassastioren tienaatieed 


670034 
670035 
670036 


R <- {N} 


Arguments Result 


Z1 = +/-INDEF 
Z1 = +/-INF 
+Z13 = +INF 


(+INO»s +IND) 
(+INDs +IND) 
(+IND, +IND) 
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228214 CCOS 
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228214 CCOS 
Function: 
Description: 


Entry points: 


Arguments: 


Domain: 


ccos 
Circular cosine of a complex number. 


ML®29$RCCOS» CCOS 
MLPSVCCOS 


calitmby-reference 
call-by-value 


Zl —- a compiex number. 


Re{Z1) <= {n : tnt < 2**47} 


Im(Z1) <— {In 3 tnt < 4095*t001?7)} 


Result: R —- a complex number. 


Range? R <— £(NsN)} 


Error results: 


Error Number Arguments Result 
670037 | Z1 = +#/-INDEF (+IND, +#+I2IND) 
67003383 Z1 = +/-INF (+IND, +IND) 
670039 sRe(Z1)i > 2%*47 CHINDs +IND) 
670040 Im(Z1) > 4095*10g(2) (+4IND» +#IND) 
670041 Im(7Z1) < -4095*loqg{2} (O.» 0.) 
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223015 CEXP 
Function: CEXP 
Description: Exponential function of a comolex number, 


-Entry points: call-by~-reference MLPSRCEXPs»s CEXP 


call-by-value MLPSVCEXP 
Arguments: Z1 =~ a complex number. 
Domain: Im€Z1) <= {nm 2 int < 2##47}. 
Re(Zi) <—- {n 2 n ¢ 4095*199(2) and 
n > ~4095*109(2)} 
Result: R - a complex number. 


Range? R <= {(NsN)} 


Error results: 


Error Number Arguments Result 

670042 Z1 = +/~INDEF (+IND, +FND) 
670043 Z1 = +/—-INF {+IND, +IND) 
670044 tIm(Z1L)$ > 2%*47 (+IND, #IND) 
670045 PRel(Z1)!$ > 4095#1o0g{2) (+4IND,y +#IND) 
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228216 CLOG 


Function: CLOG 


Description: Natural fiogarithm or comolex number. 

Entry points: cali~-by-reference MLPSRCLOGs, CLOG 
cali-by-vatue MLPSVCLOG 

Kequmeatss Z1 ~- a complex number. 

Domain: Zl <= Clnlyn2) & (n1lk*2 + W2AKR2AVHERIT2 CH {N}} 


Zi <= Ctnlsenl) 2 (nlsn2) =7° (0.%9.)} 


Result: R - a complex number. 
Range: Re(R}) <= {N} 


Im({R) <= {n % -pi ¢<¢ n < pi} 


Error results: 


Error Number Arguments Result 

670046 Z1 = #/-INDEF {+INO, *#I2IND) 
670047 Z1 = +/-INF {+#IND, +IND) 
670048 7213 = +INF {+INDs +IND) 
679049 Z1 = (0290+) {+IND, 41ND) 
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208217 CONJG 


Function: CONJG 

Description: Conjugate of a complex number, 

Entry points: call-by-reference MLPSRCONJG» CONJG 
cali-by-value ML? S$ VCONJG 

Arguments? Z1 - a complex number. 

Domain: Zl o-< Call complex numbers} 

Result: R —- a complex number. 

Range: R <= {all complex numbers} 


Error results! no errors are generated by CONJS.) 
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228.138 cos 


228.13 COS 
Function: 
Description: 


Entry points: 


Arguments: 


Domains: 


Result: 


Range? 


Error results: 


Error Number 
670050 
670051 
670052 


cos 
Circular cosine of a single orecision number. 


call-by-reference MLPSRCOS, COS 


call-by-value MLPSVCOS 
S1 —- a single precision numbers 
Sl “= {n 3 tnt < 2**47} 
R - a single precision number, 
R <=- {n 7 tins ¢< 1} 
Arguments Result 
$1 = +/-INDEF #IND 
$1 = #+/-INF + IND 
$1 > 2**47 IND 
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2.8219 COSD 
Function: 
Description: 


Entry points: 


Arguments; 


Domain: 


Result: 


Range? 


Error results: 


Error Number 


670247 
670248 
670249 


coso 
Circular cosine of a single precision number in degrees. 


calli-by-reference MLPSRCOSDs COSD 
cali-by-value MLOSVCOSD 


Sl - a single precision nunber 


Sl <- {n 3 ni < 2**47} 


R =~ a singie precision number 


R <= {n 3: tn} < 1} 


Arguments Result 
$1 = +/-INDEF +INyD 
$1 = +/-INF +IND 


sS1i5 > 2**47 +IND 


C180 Common Modules Mathematical Library (CMML) ERS 
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228.220 COSH 
Function: 
Description: 


Entry points: 


Arguments: 


Domain: 


Resuit: 


Range: 


Error results: 


Error Number 


670053 
670054 
670055 


_ COSH 


Hyperbolic cosine of a single orecistion number, 


call-by-reference MLPSRCOSHs COSH 
call=-by-vaiue MLPSVCOSH 


Si - a single precision number, 


S1 <= fn 32 ini < 4095*10g912)} 


R—- a single precision number, 


R <= {IN} 

Arguments Result 
Sl = +/~INDEF 419 
Sl = +/-~-INF #IND 


1S13 > 4095*1o0g(2) + IND 


aw 
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228221 COTAN 

Function: COTAN 

Description: Circular cotangent of a sinate orecision number. 

Entry points: call-by-reference MLP$RCOTAN 
call-by-value MLPEVCOTAN 

Arguments: S1 - a single precision number. 

Domain: Si <= fn 3 Of < imi < 2*RGT}P 

Result: R - a single precision number, 

Range: R <= {N} 


Error results: 


Error number Arguments Result 
670254 S1 = #/-INDEF +IND 
670255 S1 = #/-INF +IND 
670256 $1 >= 2**47 +IND 


670265 S1 = 0. +IND 


Ge 46 286 6H OE OG 2S HO OH 2G 42S GO oe 6H 2H HO uM HH 
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268.22 CSIN 


Functions CSIN 

Description: Circular sine of a compiex nrunber. 

Entry points: calt-by-reference MLOSRCSINs CSIN 
call=-by-value MLPEVCSIN 

Arguments? Zi - a compiex number. 

Domain: Re(Z1) <= En : ins < 2**47} 


Im(Z1) <- {n 2 ini < 4095%}0g(2)} 


Result: R ~- a complex number. 


Range: R <= {(NsN)} 


Error results: 


Error Number Arguments Result 

670056 Z1 = +/-INDEF (+IN9D,», +IND) 
670057 71 = #¢/-INF {+IND, +#+IND) 
670058 sRe(Z1)3 > 2**47 {+IND, +IND) 


670059 tIm(Z1)$ > 4095*log(2) C+INDs, +IND) 
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208223 CSQRT 

Function: CSQRT 

Description: Square root of a complex nunber. 

Entry points: call-by-reference MLPSRCSQRT» CSORT 

call-by-value MLPSVCSORT 

Arguments: Zl - a complex number. 

Domain ZL <= Cinden2) 2 CCnLee2 + y2kHIVIEELIZ) + TnL? <= {N}} 

Result: R - a compiex number. 

Range: R <= {(nlsn2) =: nl > 0} 


Error resufts: 


Error Number 


A AOD AD OE A ND NR Ee cee ER ee ee 


670060 
670061 
670062 


Arguments Result 
71 = +/-INDEF {+INODs +IND) 
Zi = +/-INF C#INDs #IND) 
sZ1litinli = +INF (#IND» +IND) 
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228.224 DABS 


Function: DABS 

Description: Absolute value of a double orecision number. 

Entry points: cali~mby-reference MLOSRDABS»s DABS 
call-by-value MLPSVDABS 

Arguments: DL - & Goubte precision number. 

Domain: D1 <= {alle double numbers} 

Result: R ~ a double precision number. 

Range: R <= {all non-negative double-orecision numbers} 


Error results: no errors are generated by 9A8S 
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228225 DACOS 

Function: DACOS 

Description: Inverse circular cosine of a double precision number . 

Entry points: caill~by-reference MLOSRDACOS» DACOS 

call-by-value MLOSVDACOS 

Arguments: Dl - a double precision number. 

Domain Dl <= {n 2 ini < 1.2} 

Result: R - a double precision number. 

Range: R <= {nm : 0¢n ¢ pi} 


Error results: 


Error Number Arguments Result 
670063 Di = +/-INDEF (+IND, +IND) 
670064 D1 = +/—-INF ({+IND,» +IND) 


670065 :D1i > 1. (+IND, +IND) 
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228.26 DASIN 

Function: DASIN 

Description: Inverse circular sine of a double precision number. 

Entry points: call-py-reference MLPSRDASIN»s DASIN 

call-by-value MLOSVDASIN 

Arguments: Dl - a double precision number, 

Domain: Dl <= {nm 2 tn? < 1.3} 

Result: R - a double precision number.’ 

Range: R <= {n 2 tnt < pis2} 


Error results: 


Error Number Arguments Result 
670066 Dil = +/-INDEF (+INDs +IND) 
670067 Dl = #/-INF (#IND, +INO) 


670068 :D1i > le (+IND, +1IND) 
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228e27 DATAN 
Function: 
Description: 


Entry points: 


Arguments: 


Domain: 


Result: 


Range: 


error results: 


Error Number 


Re i ee eT 


670069 


DATAN 
Inverse circular tangent of a double precision number. 


call-by-reference MLPSRDATANs DATAN 


call=—by-value MLPSVDATAN 
DL - a double precision number, 
Dl <— €Ns #/-INF} 
R - a double precision number, 
R <= {n : tni < pis 2} 
Arguments Result 
Dl = #/-INDEF +*INoO 


C180 Common 
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228.28 DATAN2 
Function: 
Description: 


Entry points: 


Arguments: 


Domain: 
and 


and 


Result: 


Range: 


Error results: 


Error Number 


670070 
670071 
670072 
670073 


DATAN2 
Inverse circular tangent of a double precision quotient. 


call-by-reference MLP&RDATAN2»s DATAN2 
calle-by-value MLPSYDATAN2 


D1 - a double precision number. 
D2 - a double precision number, 


Dl <=— {Ny +/-INF} 
D2 <- {Ny +#/-INF} 


(D1sD2) =/ (0290.) 


R - a double precision number.’ 


R <= {n 3 -pi < n < pi} 


Arguments Result 
D1 = +/-INDEF (+IND,» +IND) 
D2 = #+#/~-INDEF (+IND, +IND) 
D1 = D2 = #/=—INF (+IND, +IND) 
Dl = 02 = O. (+IND, +IND) 


C180 Common Modules Mathematical 
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228.29 OCOS 
Function: 
Description: 


Entry points: 


Arguments: 


Domain: 


Result: 


Range: 


Error results; 


Error Number 


670074 
670075 
670076 


pcos 
Circular cosine of a double orecision number. 


call<by-reference MLPSRDOCOSs OCOS 


cali-by-value MLPSVDCOS 
Dl - a double precision nunber’. 
Dl <= {n 3: tnt < 2%**47} 
R —- a double precision number’. 
R <- {n 2: tnt < 1.2} 
Arguments Result 
D1 = +/-INDEF C(#INDs +1IND) 
Dl = +/—-INF C(#IND, +IND) 
D1! > 2**47 (41ND, +IND) 
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228.230 OCOSH 

228.230 DCOSH 

Function: DCOSH 

Description: Hyperbolic cosine of a double orecision number. 

entry points: calli-by-reference MLOSRDCOSH» DCOSH 

cali-by-vatue ML? S$VOCOSH 

Arguments: Dl - a double precision number. 

Domain: DL <- {nm 2 tnt < 4095¥*log(2)} 

Result: R - a double precision number. 

Range? R <= {N} 


Error results: 


Error Number Arguments Result 
670077 Dl = +/-INDEF {#4INDs +#+IND) 
670078 Dl = +/=-INF (+IND, +IND) 


670079 2015 > 4095*1fog(2) (+INDs +IND) 


CONTROL DATA CORPORATION — COMPANY PRIVATE - Revision £ 


2-38 
C180 Common Modules Mathematical Library (CMML) ERS 
85/98/23 
2e0 MATHEMATICAL FUNCTIONS AND ROUTINES 
208231 DDIM 
Function: DDIM 
Description: Positive difference of two double orecision numbers. 
Entry points: call-by-reference MLOGSRDDIMs DDIM 
call-by-valtlue ML°2SVDOIM 
Arguments: D1 - a double precision nunber. 


D2 - a double precision nunber,. 


Domain: Dl <-— tN} 
and D2 <=- {N} 
and Dl - D2 <= {N} 
Result: R - a double precision number. 


Range: R <= {n : n> 0.2} 


Error resuits: 


Error Number 


670080 
670081 
670082 
670083 
670084 


Arguments Result 
D1 = #/-INDEF {+IND, +IND) 
D2 = +/~-INDEF C(+INDs +IND) 
D1 = +/=-INF (+IND, +#+IND) 
D2 = +/-INF (+IND, +IND) 
D1 - D2 = +/~-INF (+#INDs +IND) 
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228232 DEXP 


208232 DEXP 
Functions: 
Description: 


Entry points: 


Arguments: 


Domains 


Result: 


Range: 


Error resuits: 
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DEXP 
Exponential function of a double Precision number. 


call-by-reference MLPERDEXP, DEXP 
caill-by-value . MLPSVDEXP 


D1 - a double precision nunber,. 


Dl <=- {ns tnt < 4095¥*iog{2)} 


R - a double precision number: 


R <= {N} 


Error Number Arguments Resudt 


670085 Dl = +/-INDEF (4INDs +#IND) 
570086 D1 = +/~INE (+INDs +IND) 
670087 "D1! > 4095¥*tog(2) (+4IND» +#IND) 
570088 1DLE < -4095*109(2) 10.» Oo) 


cd 
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228.33 DIM 
Function: DIM 
Description: Positive difference of two single precision numbers. 
Entry points: calti-by-reference MLPSRDIMs» DIM 
call-by-vatue MLPSVDIM 
Arguments: Sl ~- a single precision number. 
$2 - a singie precision number, 
Domain: Sl <= {N} 


and S2 <=- {N} 


and 


Result: 


Range: 


Error results: 


Error Number 


670089 
670090 
670091 
670092 
670093 


oh = 


R - 


$2. <~- {N} 


R <- {N} 


Arguments 


a co 


31 = 
$2 
Sl = 
$2 = 
5i.= 


ee Oe en a 


+/-INDEF 
+/-INDEF 
+/-INF 
+/~-INF 

32 = 4/-INF 


a singie precision number, 


Resudt 


wo am ‘ee sae 


4InNdD 
+IND 
+IND 
4IND 
+IND 
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228.234 DINT 
Function: DINT 
Description: Integer (whole number) part of a double precision 


Entry points? 


Arguments: 


{Truncation.) 


cali-by-reference 


cali-by-vaiue 


nunhers 


MLPSRDINTs DINT 
MLPSVDINT 


Dl - a double precision number, 


Domain: Dl <= {N} 


Result: R —- a double precision number. 


Range: R <= {I} 


Error results: 


Error Number Arguments Result 
670094 Dl = +/-INDEF (+#IND,» +IND) 
670095 D1 = +/-INF (+#IND, +IND) 
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228.35 DLOG 


Function: DLOG 

Description: Natural logarithm of a doub!e orecision number. 

Entry points: call-by-reference MLPSRDLOGs, DLOG 
cali-by-value MLPSVYDLOG 


Arguments: Dl - a double precision nunber. 


Domain: DL <= {n 2 nD Oe} 


Result: R - a double precision number, 


Range: R <= fn 2: ini ¢ 4095*109(2)}. 


Error results: 


Error Number Arguments Result 

670096 D1 = +/-INDEF (+IND, +IND) 
570097 DL = +/-INF {C+INDs +IND) 
670098 Dl = O. (+IND,», +IND) 
570099 Di < OO. (+TND» +#IND) 
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228236 DLGG1O 
Function: DLOG10 
Description: Common togarithm of a double orecision number. 
Entry points: cali—by-reference ML°>¢RDLOG10» DLOGIO 


cali-by~-value MLPS$VDLOG10 


Arguments: Dl ~ a double precision nunber. 


Domain: — “Dl <= {nt n> 06} 
Results ees a double precision number, 
Range: R <—~ {fn 3 ini < 4095*)0gq{2)}- 


Error results: 


Error Number Arguments ; Result 

670100 Dl = +/-INDEF (+IND, +IND) 
670101 D1 = #/-INF C+INDs +IND) 
670102 Dl = 0. (+IND»s +IND) 
670103 D1 < Of . (+IND»s +#IND) 
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208237 DMOD 
Function? DMOD 


Description: Remainder of a double precision quotient, 


Entry points: call-by-reference MLPERDMOD» DMOD 
caltl-by-value MLPSVDMOQD 


Arguments: D1 - a double precision nunber,. 
D2 - a doubie precision nunber. 


Domain: D1 <=- {N} 

and D2 <~- {n ? n =/ O.} 

and Dl / D2 <= €N} 
Results: R - a double precision number. 
Range: R ¢=— {N} 


Error resuits: 


Error Number Arguments Result 

670104 D1 = +/-INDEF (+IND»s +IND) 
670105 D2 = +/-INDEF (+#IND» +IND) 
670106 D1 = +/-—INF . (+#INOs +IND) 
670107 D2 = +/-INF {+IND, +IND). 
670108 D2 = 0» {+INDs +IND) 
670109 Dl / D2 = #/-INF (#IND,s +I2ND) 
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228238 DNINT 


Function: 
Description: 


Entry points: 


Arguments: 


Domain: 


Result: 


Range: 


Error results: 


Error Number 


A A ath A NS ED NE ND ee a ee 


670110 
670111 


DNINT 


Nearest whole number to a double precision number. 


call-by-reference 


MLOSRDONINTs DNINT 

call-by-value MLPSVDNINT 
Dl ~- a double precision number. 
Dl <= £N}- 
R =~ a double precision number. 
R <= {I} 

Arguments Result 
Dl = +/—INODEF C#INDs +IND) 
Dl = +/-INF (+INDs +#IND) 
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228239 DPROD 
Function: 
Description: 


Entry points: 


Arguments; 


Domain: 
and 


and 


Result: 


Range: 


Error results: 


Error Number 


ce Tene sales OR allie ae sae came vane ae ae ae 


670112 
670113 
670114 
670115 
670116 


DPROD 
Product of two double precision numbers. 


call-by-reference MLPSRDPROD, 
cali-by-vaftue MLPSVDPROD 


D1 - a double precision number. 
D2 ~ a double precision nunber. 


Di <~ {N} 
D2 <-— {N} 


D1*¥D2 <- IN} 


R ~ a double precision number, 


R <=- {N} 


Arguments 


+/~-INDEF 
+/~INDEF 
+/-INF 
+/~INF 

D2 = +/—-INF 


OO 
ph 
+ UW tt Hot 


a > a om ae 


(+INDs 


+IND) 
+IND) 
+IND) 
+IND) 
+IND) 


DPROD 
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228240 DSIGN 


Function: DSIGN 

Description: Double precision transfer of sian. 

Entry points: cali-by-reference ML°SRDSIGNs DSIGN 
call—-by-vatlue MLPSVDSIGN | 

Arguments: Dl - a double precision nunber. 


D2 - a double precision nunber. 


Domains D1 <- {all double numbers} 
and D2 <=— {all double numbers} 

Results: R ~ a double precision number: 

Range: R <= fall double numbers} 


Error resuitts: no errors are generated by 3SIGN 
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223241 DSIN 
Functions: 
Description: 


Entry points: 


Arguments: 


Domain: 


Result: 


Range: 


Error results: 


Error Number 


670117 
670118 
670119 


DS IN 
Circular sine of a double orecision number. 


call-by-reference MLPSRDSIN»s DSIN 
cali-by-vaiue . MLPSVDSIN 


Dl - a doubie precision nunhber,. 


Dl <- {n st init < 2*%*47} 


R = a double precision number. 


R <- €n 2 int < 1.3 


Arguments Result 
Dl = +#+/-~-INDEF ~ (FIND, #+IND) 
Dl = +/-INF (#IND,» +IND) 
:D13 > 2**47 (#IND, +IND) 
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Function: DS INH 

Description: Hyperbolic sine of a double precision number. 

Entry points: call-by-reference MLPSRDSINHs DSINH 
call-by-value MLOSVDSINH 

Arguments: Dl - a double precision nunber’s 

Domain: Dl <= €{n 3 tni < 4095%*10q(2)} 

Result: R—- a double precision number,’ 

Range: R <= {N} 


Error results? 


Error Number. Arguments Result 

670120 D1 = +/-INDEF (+INDs +I1ND) 
670121 D1 = +/-INF (+IND, +IND) 
670122 3013 > 4095*10g912) (+IND, +IND) 
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228243 DSQRT 
Function: DSQRT 
Description: Square root of a double precision number. 
Entry points: call-by-reference MLPSRDSQRTs DSOART 
cali-by-value MLPSVDSORT 
Arguments? Dl - a double precision number, 
Domain: Dl <= {n 3: n> 0-} 
Results R —- a double precision number.) 
Range: R <=— {N} 
Error results? 
Error Number Arguments Result 
670123 Dl = +/-INDEF C+INDs +IND) 
670124 DL = +/=-INF (+IND, +IND) 
670125 Dl < 0. (+IND,», +#IND) 
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228.44 DTAN 


Function: DT AN 

Description? Circular tangent of a double orecision number. 

Entry points: cali-by-reference MLPERBOTANs DTAN 
call-by-vaiue MLPSVDTAN 

Arguments: Dl —- a double precision number. 

Domain: D <= {nm 2 int < 2**47} 

Result? R ~- a double precision number, 

Range: R <= {N} 


Error results: 


Error Number Arguments Result 

670126 Dl = #/-INDEF ({+IND,»s +IND) 
670127 Dl = +/-INF {(+INOD,», +IND) 
670128 tD1li > 2**47 {(+IND, +IND) 


CONTROL DATA CORPORATION —- COMPANY PRIVATE - Revision £ 


C180 Common Modules Mathematical Library (SMML) ERS oe 
85/08/23 

2.0 MATHEMATICAL FUNCTIONS AND ROUTINES = = 
228445 DTANH 

228245 DTANH 

Function: DT ANH 

Description: Hyperbotic tangent of a double oreciston number. 

Entry points: cali-by-reference MLPSRDTANHs DTANH 

calit-by-value MLPS3VDTANH 

Arguments: Dl - a double precision number, 

Domain: Dl <= {Ns +/-INF} 

Result: R - a double precision number’, 

Range: R <= {n 3 tnt < 1.} 

Error results: 

Error Number Arguments Result 


670129 


Dl = +/-INDEF {+IND»s +IND) 
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Function: DTOD 
Description: Raise a double precision base to a double precision 
power e 
Entry points: calle-by-reference MLPSRDTOD,s OTOOD 
call-by-value MLOSVDTOD 
Arquments: Dl - a double precision number, 
D2 - a doubte precision number, 
Domain: Dl <= {n 3: n> 0.2} 
and D2 <=- {N} 
and if Dl = Os 02> 0 
and D1I**D2 <= {N} 
Result: R - a double precision number, 
Range: R <¢=-— {N} 
Error results: 
Error Number Arguments Result 
670130 Dl = +/-INDEF (+INDsy #IND) 
670131 D2 = #/-INDEF (+IND,s +#IND) 
670132 D1 = #/-INF {+IND» +IND) 
670133 D2 = +/-INF (+IND, +IND) 
670134 Dl = O. and D2 < OO. (+IND, +IND) 
670135 D1 < 0. = (+IND» +#IND) 


670136 D1*¥*D2 = +/-INF —  (+#INDs +IND) 
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228247 DTOI 
Function: 
Description: 


Entry points: 


Arguments: 


Domain: 
and 
and 

Result: 


Ranges 


Error results: 


Error Number 


670137 
670138 
670139 


670140 
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DTOI 
Raise a double precision base to an integer power, 


call-by-reference MLPSRDTOI»s DTOI 
call-by-value MLOSVDTOI 


Dl - a double precision number, 
I2 - an integer. 


DL <=- {N} 
I2 <- {Call integers} 
if Dl = 0» I2 > 0 


R - a double precision number. 


R <= {N} 

Arguments Result 
D1 = +/-INDEF ({+IND,s +IND) 
D1 = +/-INF {+INDs +IND) 
Di = O. and I2 < 0 C#IND»s +IND) 


D1¥*I2 =< +/-INFE. (4IND, +IND) 
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a ee 


228248 DTOX 
Function: 


Description: 
Entry points: 
Arguments: 


Domain: 
and 
and 

Result: 


Range: 


Error results: 


Error Number 


670141 
670142 
670143 


DT OX 


Raise a double precision base to a 


cali-by-reference 
call-by-value 


Dl -—- a double precision number, 


$2 ~- a singte precision number’. 


D1 <- {n 2? nD Oe) 
D2 <-— {N} 
if Dl = 0» S2 > Oe 


R—- a doubse precision number, 


R <- {N} 


Arguments 


Dl = +/-INDEF 
32 = +/-INDEF 
Dl = +/-INF 


powere 


single 


precision 


ML°SRDTOXs DTOX 
MLPSVDTOX 


Result 


T+IND, 
(+IND, 


670144 $2 = +/~INF (#IND» 41ND) 
670145 Dl = 0 and S2 < 0. (+4INDs +#IND) 
670146 Dl < 0. s (+4INDs +#IND) 
670147 D1#*S2 = +/-INE (+#INDs #IND) 
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Function: DTOZ 

Description: Raise a double precision base t9 a complex power. 

Entry points: cali-by-reference MLPSRDTOZ»s DTOZ 
cali-by-vaiue MLPSVDTOZ 

Arguments: D1 ~ a double precision number. 


Z2 ~ a complex number. 


Domain: Dl <= {N} 

and Z2 <= {(NoN)} 

and if D1 = Oe» Z2 <— Ci{nlsn2) 2 nl > Des n2 = O02} 
Result: R —- a complex number. 
Range: R <= {(N»N)} 


Error results? 


Error Number Arguments Result 


670148 Di = +/~INDEF (+INDs +IND) 
670149 Z2 = +/-INDEF (+IND»s +IND) 
670150 D1 = +/-INF (+INDs +IND) 
670151 Z2 = +/~INF C#IND, +IND) 
670152 DL = OO» | 

and Re{Z2) < O» or Im(Z2) =/ 4.' (+INDs +IND) 
670153 D1 < Oe (+INDs +IND) 


670154 D1*¥*Z2 = +/-INF C+IND»s +IND) 
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208250 ERF 

Function: ERF 

Description: Error function of a single vrecision number. 

Entry points: calli-by-reference MLPSRERF» ERF 

cali-by-value MLPSVERF 

Arguments: $1 - a single precision nunber,. 

Domain: Sl <~ {€N} 

Result: R - a single precision number’: 

Range: R <= {n 3: -1. €& n € 1e} 


Error results: 


Error Number Arguments Result 


670155 $1 = +/-INDEF — +IND 
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228251 ERFC 

Function? ERFC 

Description: Error function complement of a single precision number. 

Entry points: call-by-reference MLPSRERFCs ERFC 

call-by-valiue MLPSVERFC 

Arguments: S1 - a single precision nunher,. 

Domain? $1 <= {n 2 n ¢ 25.923} 

Result: R ~ a single precision number. 

Range? R ¢= {n 3 04. <n < 2} 


Error results: 


Error Number Arguments Result 


670156 Sl = #/-INDEF +IND 
670184 Sl > 25.923 0. 
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228252 EXP 
Function: EXP 
Description: Exponential function of a sing!2 precision number. 
Entry points: calle-by-reference MLOPSREXP» EXP 
cali-by~-value MLPS&VEXP 
Arguments: $1 - a single precision number, 
Domain: S1 <= {n 3 tnt < 4095*10g(2)} 
Result: R=- a singie precision number. 


Range: R <= {N} 


Error results: 


Error Number ‘Arguments 
670157 $1 = +/-INDEF 
670158 $1 = +/-INF 
670159 $1 > 4095*1loqgl2) 
670160 SL < -4095%109(2) 
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228253 EXTB 
Function: EXTB 
Description: EXTBl(asilsi2) - Extracts bits from argument as as in- 


dicated by il and i2. 
bit to be extracteds 


Argument Il indicates the first 
nunbering from bit zero on the 


left. Argument i2 indicates the number of bits to be 


extracted. 


Entry points: call-by-reference 
call-<—by-vailue 


MLPSREXTB 
MLPSVEXTB 


Sd 


26 2H 24 Ou 2h OS BH OH Oe © OS SH ES Oe 


Arguments: The parametersa is any data type except character or 
bit. For a double precision or compiex argument a» 
the argument used is REAL(A).’ i1 and i2 are integers, 

Domains: ilsi2 <= {ilsi2: il + i? <= 644 

¥.* a <~ CREALS} GR a <=— CDVIBLE PRECTSIGON NUMBERS} OR 
a <~- {INTEGERS} OR a <=- CCOMPLEX: NUMBERS} 
Result: R —- a FORTRAN type BOOLEAN vatue (64-bit word). 
Range: R <= {BOOLEAN}. 


Error results: 


Error number Arguments Result 
670257. il < 0 +IND 
670258 i2 <¢ 0 +IND 
670259 il >= 64 +IND 
6790260 jl + 12 > 64 +IND 
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228254 TABS 


Functions: TABS 

Description: Absolute value of an integer’ 

Entry points: call-by-reference MLOSRIABS» IABS 
cali-by-vatue MLOSVIABS 

Arguments: Il - an integer. 

Domain: Il <= Call integers} 


Result: R=— an integer. 


28 £20 2 26 Be Be te GH 2H HE we CO OH Be a eH Be OH Be OH EE Oe ee 


Ranges R <= {i : i > 0} 


Error results: no errors are generated by I[A8S 
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228.55 IDIM 


Function: IDIM 

Description: Positive difference of two integers. 

Entry points: cali-by-reference MLPSRIDIMs IDIM 
call-by-value MLPSVIDIM 

Arguments: Ii ~- an integer. 


I2 —- an integer. 


Domain: (Il, 12) <= {ils 412) 2: $1 - 12 < 2**63} 


Results R- an integer. 


Range? R <- {i} i > 0} 


Error results: 


Error Number Arguments Result 


670161 Tl - 12 > 2**63 8) 
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Function: IDNINT 
Description: Nearest whole number to a double orecision number. 
Entry points: call-by-reference . MLPSRIDNINTs IDNINT 
call-by~-vatue MLPSVIDNINT 


Arguments: D1 - a double precision nunber,: 


Domain: DL <= {N}. 
Result: R=- an integer. 
Range: R <= {1} 


Error resuits: 


Error Number Arguments Result 
670162 DL = #/-INDEF | 0 
670163 Dl = +/-INF 9 
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208257 INSB 


Function: INSB 


INSS(asilsi2sb) — Inserts hits From argument a 
{rightmost i2 bits) into cooy of b (beginning with 


Descriptions: 


id 


on wee 24 26 Ae woe Be ee be 


bit position ils length = i? bits). 


Entry eoints: call-by-reference MLPSRINSB 
call-by-value MLPSVINSB 
Arguments: The parameters asb are any data type except character 


or bite For double preacision or’ complex arguments 
asb; the arguments used are REALT a) and REAL(b) 
respectively. il and #2 are integers. 

Domain: flsi2 <—= €{il»i2: il + 12 ¢= 454} 
asb <~ {REALS} OR asb C= FONONYUBLE PRECISION NUMBERS} OR 
asb <~ CINTEGERS} GR ash <=- CCOMPLEX NUMBERS} 

Result: R —- a FORTRAN. type BOQLEAN value (64-bit word), 

Range: R <~- {BOOLEAN} 


Error results: 


Error number Arguments Result 
670261 il < 0 +#IND 
670262 i2 <¢ 0 +#IND 
670263 : il >= 64 +IND 
670264 il + 12 > 64 +IND 
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228258 ISIGN 
Function? IS IGN 
Description: Integer transfer of sign. 
Entry points: call-by-reference MLPSRISIGNs ISIGN 
call-by-vaiue MLPSVISIGN 


Arguments: Il —- an integer. 


Oo O06 wh BS BH we Be Ae BE BH OE HO BH BH He HH OH we BH HH BH OE BE Bh Oe He Be He 


I2 - an integer. 


Domain: Il <- Cali integers} 
and I2 <= {ali integers} 

Result: R ~ an integer. 

Range: R <= {all integers} 


Error results: no errors are generated by ISISN: 
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Function: IToD 
Description: Raise an integer base to a double preacision power. 
Entry points: call—by-reference MLPSRITGD, ITOD 


cali-by~-vatue ML®SVITOD 


Arguments? Ii - an integer. 
D2 ~- a double precision nunber'’, 


Domains Ii <- {i : i > 0} 


+ 
and . D2 <- {N} 
+ 
and — if I1 = 0» D2> 0. 
Result: R ~- a double precision number, 
Range: R <= {N} 
+ 
Error results: 
Error Number Arguments Result 
Be ete ee eon 
670164 D2 = #/-INDEF C+IND,s +IND) 
670165 D2 = +/-INF (+IND»s +#+INOD) 
670166 Ii = 0 and D2 < 0. {+INOD, +IND) 
+ 
670167 Ii < 0 {+IND,s +IND) 
670168 I1**D2 = +/-INF (#IND,s +#+IND) 
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208260 ITOI 


Function: ITGI 


Description: Raise an integer base to an integer power. 


Entry points: call-by-reference MLPSRITOL,s ITOI 
call-by~value MLOSVITOI 
Arguments: Il - an integer. 


I2 - an integer. — 


Domain: Il <- Call integers} 
: and I2 <- fall integers} 
* and if Il = O» 12> 90 
and t11¥*I 2) < 2**63 
Result: R - an integer. 
Range: R <= {all integers} 
+ 
Error results: 
Error Number Arguments Result 
+ nae pene 
670169 ,11¥*¥*I2¢ > 2**63 0 
, 670170 Il = 0 and 12 < 0 0 
+ 
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228.61 ITOX 


Function: ITOX 

Description: Raise an integer base to a single precision power. 

Entry points: call-by-reference “MLS RITOX> ITOXx 
call-by-value MLOSVITOX 

Arguments: Il ~- an integer. 


$2 —- a single precision nunber’. 


Domain: Tl <~ {i = i > 0} 

and $32. <= {N} 

and if Il = 0» $2 > 0. 
Resulti R - a single precision number.’ 
Range: R <= {N} 


Error resuits: 


Error Number. Arguments Result 
670171 S2 = +/-INDEF +IND 
670172 $2 = +/-INF +IN) 
670173 Il = 0 and $2 ¢ O- +IN9 
670174 Il <0 7 #IND 
670175 I1L**$2 = +#/-INF #IND 
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2208262 IT0Z 


Function: ITOZ. 

Description: Raise an integer base to a conptex powere 

Entry points: call-by-reference MLO@RITOZ,s ITOZ 
call<-by-value MLP@VITOZ 

Arguments: Il - an integer. 


Z2 ~ a complex number, 


Domain: Il <= {n 3 nD OG} 

and Z2 <= {C(NoN)} 

and if Il = 0» Z2 ¢=— {(nlsn2) * nl > Os n2 = 0.2} 
Result: R—- a comptex number. 
Range: R <<— {(NsN)} 


Error results: 


Error Number Arguments Result 
670176 72 = +/=INDEF (+IND» +IND) 
670177 22 = +/~-INF (+IND» +IND) 
670178 Il = 0 

and Re(Z2) < Oe or Im(Z2) =/ Nei (#INDs #IND) 
670179 I1L**72 = +/-INF (+IND» +IND) 


670180 Tl < 0 (+IND»s +IND) 


C180 Common 
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228263 MOD 
Function: 
Description? 


Entry points: 


Arguments: 


Domain: 


and 


Result: 


Range: 


Error results: 


Error Number 


on np ee ne ee ee ee 


670181 


MOD 
Remainder of an integer quotient. 


cali~by-reference MLPSRMODs MOD 
cali-by-value MLPSVMOD 


Il ~ an integer. 
I2 - an integer, 


Il <= Call integers} 


12 <- fi 2: i =/ Q} 


R - an integer, 


R <—- {all integers} 


arguments Resuit 
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228264 NINT 
Functions: 
Description: 


Entry points: 


Arguments? 


Domain:. 


Result: 


Range: 


Error results: 


Error Number 


DE AD EE EE a em mean mie 


670182 
670183 
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NINT 
Nearest whole number to a single precision number. 


cali~by-reference MLPSRNINTs NINT 


calti-by~-vaiue MLOSVNINT 


$1 —- a single precision nunher,. 


Si. <> tN} 


R = an integer. 


R <= {I} 
Arguments Result 
Sl = +/-INDEF 9) 


S1 = +/~-INF 8) 


C180 Common 
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228265 RANF 
Function: 
Description: 


Entry points: 


Arguments: 
Domain: 
Result? 


Range: 


Error results: 


Comments: 


RANF 
Random number generator (single orecision). 


call-by-reference MLPS&RRANF» RANF 
cali~-by-valiue MLOPDVRANF 


there is no argument to RANF.: 
not applicable. 
R - a single precision number. 


R <—- {n 3 02 €< n < 1} 


no errors are generated by 2ANF 


RANF is intended to return the same values as the  RANF 
implemented on the 170 machines as long as the ‘Sdefauit) 


initial value provided by the two libraries is used 


the caller. The vatues of the random number seed and 
multiplier used In the Math Library random number 
generation routiness RANFs RANGET and RANSETs are made 
available to host ftanguages in RANDATA>s a data-onty 


module in the Math Library. The values contained 
this module are: 


Value Definition 
» mivtinitial seed default initial seed 
» mivédrandom seed current random seed 
e mivérandom_multtiptier randon muttiptier 


The initial value of both mivsinitial_seed and 
mivérandom_seed is 400023C583CFE1659(16). The initial 
value of miv$random_muitiotier’ is 40302875A2E78175(16)., 


The algorithm does not: change the values 
mivginitial seed or mivérandom_ multipliers and 
user-callable routines are ornovided to change them. 
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228266 RANGET 
Procedure: RANGET 
Description: Get the random number seed (a single orecision number). 
Entry points: call<-by-reference RANGET 


There is no calli-by~vatue entry for RANGET. 


Arguments? R -~ a single precision number” 
{the argument receives the result) 


Domain: not applicable 
Result: R =—- the argument. 
Range: to be supptied. 


€rror results: no errors are generated by 2ANGET 
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208267 RANSET 


Routines RANSET 
Description: Set the random number seed (a single precision 
Entry points: cati~by-reference RANSET 
There is no callt-by-vatue entry For RANSET. 
Arguments: 31 - a single precision nunber,. 
Domain: S31 <- {n 2 O06 < n ¢ 12} 
Result: not applicable. 
Ranges not applicable 


Error results? no errors are generated by 2ANSET, 


2-74 


BoP GET 25 


number). 
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228.268 SIGN 


228.268 SIGN 
Function: 
Description: 


Entry points? 


Arguments: 


Domain? 


and 


Result: 


Range: 


Error results: 


SIGN 


Single precision transfer of sian. 


calt-by-reference 
call-by-value 


$1 - a single precision number’. 
$2 - a single precision nunber. 


Sl <- Call single numbers} 


$2 <- fall single numbers} 


R - a single precision number, 


R <= {n ? n> 0.2} 


no errors are generated by SIGN 


MLPSRSTIGNs SIGN 
MLPSVSIGN 
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228.69 SIN 

Function: SIN 

Description: Circular sine of a single orecision number. 

Entry points? cali-by-reference MLPSRSIN»s SIN 
cali-by-vatue MLPSVSIN 

Arguments: Sl - a single precision number, 

Domain: Sl <= {n 8 ini < 2**47} 

Result: R - a single precision number. 

Range: R <—- {n 2: tnt *€ 1.} 

Error results: 

Error Number Arguments Result 

670185 S1 = +/-INDEF +IN) 

670186 $1 = +/-INF +IND 

670187 *S1i > 2**47 +IND 
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228.270 SIND 


228.70 SIND 
Function: 
Description: 


Entry points: 


Arguments: 


Domain: 


Result? 


Range: 


Error results: 


Error Number 


670244 
670245 
670246 


SIND 


Circular sine of a singte orecision number 


in degrees. 


cali-by-reference MLO$2SIND»s SIND 


cali-by-value MLPSVSIND 


$1 —- a single precision nunber. 


$l <= {n 3: tnt < 2%*47} 


R= a single precision number, 


R <=—= {n 3: int < 1.2} 


Arguments Result 
$1 = +/-INDEF *INo 
$1 = #/-INF +INO 


7S1$ > 2**47 +INo 
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208071 SINH 


Function: SINH 

Description? Hyperbolic sine of a single precision number. 

Entry points:  call-by-reference MLPSRSINHs SINH 
cali-by-value | MLPSVSINH 

Arguments? Sl - a single precision number. 

Domain: Sl <- {nm 2 tnt < 4095*1og(2)} 

Result: R - a single precision number. 

Range: R <= {N} 


Error results: 


Error Number Arguments Result. 
670188 S51 = +/-INDEF +#IN5 
670189 Sl = +#/-INF . +IND 


670190 i315 > 4095*1og(2) +IND 


CONTROL DATA CORPORATION -— COMPANY PRIVATE = Revision E 
2-79 
C180 Common Modules Mathematical Library (CMML) E25 
85/08/23 
220 MATHEMATICAL FUNCTIONS AND ROUTINES 
208272 SQRT 


A A SS NN AN “ANTI AD CAND AOD TED SED OE AR PES AND OED AS SAEED SE SE AE GS ED SE OL EEN SND OE AED ANN AIOE A RS SRN OE “OUR en AE SORE CAND: OD ay AN A ED ED ED ES NS EN GS EP SD SO le SE OD Ae ee 


228272 SORT 


Function: SQRT 

Description: Square root of a singte precision number. 

Entry points? cali-by-reference MLPERSQART, SQRT 
call-by-vaiue MLOSVSOQRT 

Arguments: Si - a single precision nutber. 

Domain? Sl <= {n = n D> Oe} 

Result: R - a single precision number, 

Range: R <= {n 3 nD 0.2} 


Error resulits:. 


Error Number Arguments Result 
670191 Sl = #/-INDEF +INh 
670192 $1 = +/-INF + IND 


670193 $1 < 0-2 + IND 


C180 Common Modules Mathematical Library (CAML) EQS 
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208273 TAN 
Function: 
Descriptions 


Entry points: 


Arguments: 


Domain: 


Result: 


Range: 


Error results: 


Error Number 


670194 
670195 
670196 


TAN 
Circular tangent of a single orecision number. 


MLPSRTANs TAN 


MLPSVTAN 


call-by-reference 
cali-by-value 


Sl - a single precision number’. 


Sl <= €{n 3 tnt < 2**47} 


R ~- a Single precision number: 


R <~ {N} 


Arguments Result 


$1 = +/-INDEF #IND 
Sl = +/-INF +IND 
SLi > 2**47 + IND 
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228274 TAND 
Function: TAND 
Description: Circular tangent of a sing!e oracision number in 
degrees. 
Entry points: calil-by-reference ML>SRTAND» TAND 
cali~=by-value MLPEVTAND 


Arguments: 


Domain: 


Result: 


Ranges 


Error results: 


Error Number 


on ae ED En alle a a ae ee ee 


670250 
670251 


$1 - a singie precision number, 
Sl <= {n 3 tnt < 2**47 and 


n =/ 90*m where no <=- sat of odd integers} 


R - a single precision number. 


R <= {N} 

Arguments Result 
$1 = #+/=-INDEF +INO 
Sl = +/-INF +IND 


679252 iS1li > 2**47 +IND 


670253 S1 is an odd multiple of 99 AD) 
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228-75 TANH 


Function: TANH 

Description: Hyperbolic tangent of a single orecision number. 

Entry points: call-by-reference MLPSRTANH» TANH 
calli-by-vatue MLOSVTANH 

Arguments: S1 - a single precision number, 

Domain: Sl <- €N»y +/-INF} 

Result: R - a singie precision number.’ 

Range: R <= {n s ins ¢ 1.2} 


—_ 


Error resuits: 


Error Number. Arguments Result 


670197 Sl = +/-INDEF 4IND 
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Functions: XTQD 
Description: Raise a single precision base to a double precision 
Dower » 
Entry points: call-by-reference MLPSRXTOOs» XTOD 
call-by-vatue MLPSVXTOD 
Arguments: $1 - a single precision nunber. 


D2 - a double precision number, 


Domain: Sl <- {n 3 n > O0.} 
and D2 <=- {N} 
and if Sl = O«»s D2 > O- 


Result: R = a double precision number.-: 


Range: R <~- {N} 


Error resuits: 


Error Number Arguments Result 

670198 $1 = +/-INDEF {+IND,s +#IND) 
670199 D2 = +/-INDEF (+IND» +IND) 
670200 S1 = #+/~INEF (+IND, +#IND) 
670201 D2 = +/-INF (+IND, +IND) 
670202. S1 = 0. and D2 <¢ O. {+INDs +IND) 
670203 S1 < 0. ~ (+INDs +IND) 
670204 $1¥*D2 = +/-INF (+INDs +IND) 
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208077 XTOI 
Function: XTOI 
Description: Raise a singie precision base to an integer power. 
Entry points: call-by-reference MLPSRXTOIs XTOI 
cali-by-value MLPSVXTOI 
Arguments: S1 ~- a single precision number, 


I2 - an integer. 


Domain: $1 <= {N} 
and I2 <— Catt integers} 
and if Sl = O» I2 > 0 


Result: R - a singie orecision number: 


Range; 


Error results: 


Error Number 


670205 
670206 
670207 


670208 


C180 Common 


R <= {N} 


Arguments 


+/-INDEF 
+/-INF 
0 and [2 < 0 


ww 
pou 
“eu h 


S1¥#12 = +/-INF 


— im we “ean sae so 
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228.278 XTOX 
Function: 


Description: 


Entry points? 


Arguments: 


Domains 


XT OX 

Raise a single precision base to a single 
POWRT e 

cali-by-reference MLPERXTOX»s 

calli-by-value MLPSVXTOX 


S1 —- a single precision nunber. 


$2 - a single precision nunber. 


Sl <= {In : n> 0} 


precision 


XTOX 


and $2 <=— {N} 


and if Sl = OO.» $2 > 0. 

and $1**S2 <= {N} 
Result: R - a single precision number. 
Range: R <= {n zt n> 0.2} 


Error results: 


Error Number Arguments Result 
670209 $1 = +/-INDEF +IND 
670210 $2 = +/-INDEF +#INoO 
670211 Sl = +/-INF +IND 
670212 $2 = +/—-INF +IN) 
670213 Si = 0.2 and S2 <¢ O- +IND 
670214 Fe ae ia +IND 
670215 S$1¥*¥*§$2 = +INF +INO 
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208279 XTOZ 


Function? XTOZ 

Description: Raise a single precision base to a complex power. 

Entry points: cali-by-reference MLPS&RXTOZs XTOZ 
call-by-value MLOSVXTOZ 


Arguments: Sl —- a single precision number. 


72 - a complex naumber. 


Domain: Sl <- EN} 
and 72 <= CON»N)} 
and if Sl = 0» Z2 <= {{nlynl) = al > Oo» n2 = 04} 
and S1L¥*¥*72  <- C(NyN)} 

Result: R~ a complex number. 

Range: R <=- {(NyN)} 


Error results: 


Error Number Arguments Result 
670216 $1 = +/-INDEF (+INDy +IND) 
670217 72 = +/-INDEF (+INDs» #+IND) 
670218 Sl = +/-INF {4IND,y +IND) 
670219 72 = +/-INF (#IND» +#IND) 
670220 Sl = 0-« 

and Re{ZJ2) <€ 0.2 or Im(Z2) =7 9.2! (+IND, +IND) 
670221 SL¥¥Z22 = +/-INF (+IND» +IND) 
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228.80 ZTOD 


Functions ZTOD 


Description: Raise a complex base to a double precision power. 


Entry points: cali-by-reference ML°$SRZTODs ZTOD 
call-by-value MLOSVZ7TOD 
Arguments: Zi ~ a compiex number. 


D2 ~ a double precision nunber%: 


Domain: Zl <= €(NsN)} 

and D2 <- {N} 

and if Zl = ({Oe00e)s D2 > Os 

and Z1**D2 <— {L(NyN)} 
Result: R - a complex number. 
Range? R <~— {(N»s Nd} 


Error results: 


Error Number Arguments Result 

670222 Zl = +/~INDEF (+4INDs +IND) 
670223 D2 = +/-INDEF (+IND, +IND) > 
670224 Z1 = +/-INF {+INDs +IND) 
670225 D2 = +/-INF (#INDs +IND) 
670226 Zl = 0. and D2 < 0.  «(#INDs +IND) 
670227 Z1*¥*D2.= +/-INF_ C+INOD»s +IND) 
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228.81 ZTOI 
Function: 
Descriptions 


Entry points: 


Arguments: 


Domain: 
and 
and | 
and 
Result: 


Range: 


Error results: 


Error Number 


6702238 
670229 
679230 
679231 


C180 Common 


ZTOI 
Raise a complex base to an integer voower,. 


call-by-reference MLPERZTOI»s ZTOI 
cali-—by-value MLOSVZTOI 


Z1 —- a complex number. 
I2 - an integer. 


Zi <— LUN»N)D}F : 

I2 <= {all integers} 
Z1**I2 <— CiNsN)} 

if Zi = (0490.)»9 12 > 0 
R - a complex number. 


R <= £(NsN)} 


Arguments Result 
Zi = #/-INDEF (+INDs +IND) 
Z1 = +/-INF (+INOs +IND) 
Z1**1I2 = +/~-INF (#IND, +IND) 
Z1 = 0. and I2 <¢ 0 (+IND, +IND) 
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228282 ZTOX 
Functions 
Description? 


Entry points: 


Arguments? 


Domain: 
and 
and 
and 

Result: 


Range? 


Error results: 


Error Number 


670232 
670233 
570234 
670235 
670236 


670237 


ZTOX 
Raise a complex base to a singt® precision power. 


cali-by-reference MLPSERZTOX» ZTOQX 
calli-by~value | MLPSVZTOX 


Zl ~- a complex number. 
S2 - a Single precision number. 


Zl <=— L(NsN)} 

$2 <= {N} 

if Zi= 10.900)» $2 > 0 
Z1**S2 <= {C(NyN)} 

R - a complex number. 


R &€=— {UNyN)} 


Arguments Result 
Z1 = +/—INDEF (#INDs +IND) 
$2 = +/~INDEF (+IND»s +IND) 
Zl = #/-INF {+INDs +IND) 
$2 = +/-INF (+INDs +IND) 
Z1 = Of and $2 < Ow (+IND,s +IND) 


11#*S2 = +/-INF_ (+4INDs +INO) 
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228.83 ZTOZ 
Function: ZTO0Z 
Description: Raise a complex base to a conplex power, 
Entry points? call-~by-reference MLPSRZTOZs ZTOZ 
call~-by-value MLOSVZTOZ 
Arguments: Z1 - a complex number. 
Z2 ~- a complex number, 
Domain: Zl <= £UNsN)} 
and Z2 <= £(N»yN)} 
and if Zl = (O«200e)5 Z2 <— {inlsn2) 2 nl > Oey» n2 = OL} 
and Z1¥*¥*Z2 <= {{NoN)} 
Result: R=- a comolex number. 


Range: R <= {(€N»N)} 


Error results: 


Error Number Arguments Result 
670238 Z1 = +/-INDEF (+#INO» +IND) 
670239 Z2 = +/~-INDEF (+INDs #+IND) 
670240 Z1 = #+/-INF (+IND, +IND) 
670241 Z2 = #+/-INF (#IND, +#+IND) 
§ 70242 Z1 = 0 

and Re(Z2) < O-« or Im({Z2) =/ 9! (+IND, 42ND) 


670243 Z1**72 = +/-INF (4INDs» +IND) 
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360 NUMERIC CONVERSTON AND ASSEMBLY LANGUAGE SUPPORT ROUTINES 


321 INTRODUCTION 


A OT AN A aD A a Ne a 


The CMML includes» in addition to the mathenatical functions already 
describeds a number of numeric conversion routines and assembly language 
support routines which will be referred to jfoint!v as the CMML Common 
Support Routinese These routines are orovided for alt products 
(compiler or runtime systems) to perform numeric input and output 
conversion and other services and to allow scode sharing. This will also 
ensure that the same numeric representation natches the same internal 
bit value by ali processors. For performance ourposess the support 
routines are written in C180 assembly langquage. 


The numeric conversion routines provide for the conversion between ASCII 
character strings and internal numeric reoresentations. The assembly 
language support routines (formerty described tn 30S document $3410) 
give the user access to some (C180 hardware 8D°® and real arithmetic 
operations not readily available through CY83IL. The CMML support = ailso 
provides some special conversion routines and capabilities specificality 
requested by the FMU project and other developnent organizations» 
because the improved performance of writing them directly in the C180 
assembly language justified the abandonnent of CYBIL for these 
procedures, 


322 DOCUMENTATION CONVENTIONS 


The naming convention for typess vaiuess dectarationss and procedures 
conform to the SIS naming conventions with the first two characters 
being ‘ML? to indicate a Math Library (CMML) nane. The third character 


indicates the type of name and the fourth character is a 4$!%, 


The general linkage interfaces error handlinags and oparameter type 
specifications for the common support routines are discussed in the 
following sections. The types and values used i1 the CMML support 
routines are presented as CYBIL declaratioris. Each support routine and 
its associated parameter tist are described in CYBTL Format in the 
specifications section by its XREF procedure dectaration common deck. 


323 LINKAGE INTERFACE 


0 Re “Rene cannes ne “een sein il in ae aintin sa 


The linkage interface for the CMML support routines is defined in CYBIL 
terms and conforms to the CYBER 180 System Interface Standard (SIS) for 
inter~language procedure calls. The calling sequences are described in 
the routine specifications. 
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EA AD A A ND OD AS ONY SOR SED cD we 


The CMML support routines are assembly tanguage procedures designed so 
that no trap conditions are generated.» There are no error numbers or 
messages associated with these routines, A status parameter whose 
MLTSERROR value is returned to the caller indicates the quality of the 
resuit returned. 


325 CONVERSION AND ALSS ROUTINE SPECIFICATIONS 


This section contains procedure declarations with parameter fist 
specifications and functional descriptions for the conversion and ALSS 
{Common Support) routines. Special CMML tvynese constants and values 
used in the descriptions are defined in Apoerdix A. 


The meaning and usage of each parameter are usually obvious from its 
name and the context of the particular routine oprocedure. The most 
commonly used parameter names have the following meanings: 


e Source Pointer to the input source data to be processed. 


e Source _ftength Length of the source inout (Units vary according to 
the routine). 


e Target Usuatty specifies the desired destination of the 
result. Sometimes it specifies an additional 
source parameter. 


» Targetliength If this is a VAR paraneters the actual fength of 
the result is returned in this parameter. 
Otherwises on input» it specifies the desired 
length of the result. 


e Status An MLTSERROR value Is: returned to calter via this 
parameter to indicate the quality of the result by 
specifying error status or soecial condition that 
occurred. 
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30501 MLPSBDP_CONVERSION 


{ MLDSBDP - Declare mip$bdp_conversion } 


PROCEDURE CXREF] miptbdp_conversion (source: “cell; 
source length: mitt$bdp_tength; 
source type: mittbdp_type; 
target: “cell; 
target_length: mit$bdp_length; 
target_type: mitSodp_type; 
VAR status; mit$error)3 


{ FUNCTION: Provide access to the numerics nove (M9VN) C180 hardware 
{instruction. 


{ STATUS MLESINVALID_BDP_DATA tis returned whenever the source or 
{target type is mictalphanumerics whenever’ invalid 8DP data 

{is contained in the sources or whenever a source or target 

{length is inappropriate for its type. 

{ STATUS MLESLOSS_OF_SIGNIFICANCE is returned when the target field 
{is not large enough to contain the converted source. The target 
{will contain the rightmost significant digits of the converted 
{sources 
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30522 MLPSBDP_TO_BITS AND MLPSBITS_TO_BD?® 


32502 MLPS$BD0P_TO_BITS AND MLPSBITS_TO_BDP 


{ MLDSBIT — Declare mip$bdp_to_bits } 
{ and - Declare mip$bits_to_bdp } 


PROCEDURE [XREF] mip$bdp_to_bits (source: “cell 
source _length: mit$bdp_tength; 
source_type: mitSbdp_type; 
target: “cell; 
target_Jength: mitSstring_ length; 
target_bit_offset: 0 .. 73 

VAR negative: boolean; 
VAR status: mitS%error)5 


PROCEDURE CXREF] mip$bits_to_bdp (source: “cell; 
source_length: mit$Sstring_length; 
source bit_offset: 0 «+. 73 
source _type: mitSinteger type; 
target: “cell; 
target_tength: mitSbdp_length; 
target _type: mittbdp_type; 

VAR status: mitSerror); 


£ FUNCTION: Convert a BDP number into an unatigqned bit string (and 
{vice versa). Written at the request of the FMI project. 

{ 

{ In both proceduress the length of the bit string is in bits» not 
{Lin bytes. The converted source is always placed riaht-justified 
{in the target field with zero Fill to the lteft unftess the source 
{in mip$bits_to._bdp is signed and negative.’ All BOP types 

{except alphanumeric are allowed. 

{ 

{ NEGATIVE return a value of true whenever the source is negative. 
{ 

{ STATUS MLESBAD_ PARAMETERS is returned whenever READ parameters are 
Cout of range. 


ae ae ee 


{ STATUS MLESLOSS_OF_LSIGNIFICANCE is returned whenever the target is 
{too small to contain the converted source. Truncation of the 
Cleft-most digits occurs to force Fit the result. 

{ STATUS MLESINVALID_BDP_DATA is returned whenever a source bdp 
{number contains invalid characters. 
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30523 MLPSCOMPARE_BDP 


{ MLDSCMN = Declare mip$compare_bdp } 


PROCEDURE CXREF] miptcompare_bdp (source? “cell; 

source_length: mnlt$bdo_length; 
source type: mitSbdp_type;5 
target: “cell; 
target_length: mit$bdp_length; 
target _type: mitSodp_type; 

VAR result: mitS$compar e; 

VAR status: mitSerror) 35 


{ FUNCTION: Provide access to the decimal comnoare (CMPN) C180 
{hardware instruction. The user is referred to the MIGDS 

{for information regarding the BDP types that are arnceptable 
{to this instruction. 

{ 

{ STATUS MLESINVALID_BDP_DATA is returned whenever BDP type or 
{length is illegai for this hardware instruction. 
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325e4 MLPSCOMPARE_BYTES 


{ MLDSCOM = Declare mip$compare_bytes } 


PROCEDURE [CXREF] mipt%compare_bytes (source: “cell; 
source_length: mit$string_length; 
target: “cell; 
target_liength?: mitS$string_ftength; 
VAR result: mitS$compar e; 
VAR number_equal_bytes: mit%$string_ltenath; 
VAR status: mitterror); 


{ FUNCTION: Provide access to the compare bytes (€MPB) C180 
{instruction without fimiting the user to byte lengths tess 
{than or equal to 256. 

{ 

{ STATUS MLESNO_LERROR will be returned. 
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30505 MLPSCOMPARE_ COLLATED 


{ MLDSCCI - Declare miptcompare_collated } 


PROCEDURE [XREF] mip$compare_collated (source: “coll; 

source _length: mit$string length; 
target: “cell; | 
target_length:? mitSstring_length; 
collate_table: “cell; 

VAR result: mit$compare; 

VAR number_equivalent_bytes: mit%string_length;3 

VAR status? mit$error)$ 


{ FUNCTION: Provide access to the compara coltatet (CMPC) C180 
{hardware instruction without restricting the user to byte 
{lengths tess than or equal to 256. 

{ 

{ STATUS MLESNO_ERROR is returned. 
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32526 MLPSCOMPARE_ FLOATING 


{ MLDSCF =—- Declare miptcompare_floating } 


PROCEDURE {CXREF1 mipScompare_floating (source: “cell; 
source_length: mits$floating_tength; 
target: “cell; 
targetliength: nit$floating ftength; 
VAR results mit$compar e; 
VAR status: mitS$error); 


{ FUNCTION: Compare the vaiues of two floating point numbers. 

{ 

{ STATUS MLESINDEFINITE is returned whenever’ the source or target is 
{indefinite or whenever both source and target are infinite with the 
{same signe The result is then MLCSUNORDEREN. 
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30507 MLPSCOMPUTE_FLOATING NUMBER 


{ MLDSCFN —- Declare mipScomoute_floating nunber } 


PROCEDURE CXREF] mipS$compute_floating number (source: 
mitt fioating_input; 
scale factor: integer; 
target: “cell; 
target_iength: ait$flosating_ tengths 
VAR status: mitS$error)3 


{ FUNCTION: Generate an internal (binary) floating point number 
{given as input a scale factor (power of ten} and the TARGET 
{parameter result of MLPSINPUT_FLOATING_MANTISSA (as SOURCE). 

{ 

{ STATUS MLESOVERFLOW is returned whenever the floating point number 
{"generated” is out of range {that is - infinite or indefinite). 

€{ The vatue returned will he either +INF or +INDs depending on the 
{nature of the overflow. . 
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30528 MLPSCONVERT_FLOGAT_TO_LINTEGER 


{ MLOSCFI - Declare miptconvert_fioat_to_integer } 


PROCEDURE [CXREF] mio$convert_float_to_integer (Csource: “cell; 
source _length: mitS$floating_length; 
target: “cell; 
target_length: mitS$integer _ length; 
target_type: mitsinteger_type; 
VAR status: mitterror); 


{ FUNCTION: Convert a Floating point number’ into an integer. 

{ 

{ STATUS MLESLOSS_OF_SIGNIFICANCE Is returned whenever the floating 
{point number cannot be represented as an integer of the specified 
{length. The integer value returned will contain the rightmost 
{significant bits of the correct result. for infinite or indefinite 
{floating point numbers» the integer value returned is 0O- 
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3.5.9 MLPSCONVERT_INTEGER_TO_FLDAT 


{ MLDSCIF = Deciare mip$convert_integer_to_float } 


PROCEDURE [CXREF] mip$convert_integer_to_float (source: “cell; 
source _length: mitS$integer_l!ength; 
source_type: mittinteger_tyoe; 
target: “cell; 
target_flength: mit$floating length; 
VAR status: mit$error)3 


{ FUNCTION: Convert an integer into a floating point number. 
{ 
{ STATUS MLESNO_ERROR is returned. 
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345610 MLPSINPUT_BASE_NUMBER 


{ MLDSIBN - Dectare mipSinput base number } 


PROCEDURE CXREF] mipsinput_base_number (source: “cells 

source length: mitSstring  tength; 
target: “cell3 
target_length: mit$%string length; 
base? mittnon_ decimal base; 
inbedded_ blanks: mitthandie_blanks; 
justification: mitSjustify; 

VAR actual _source_length: mit$string_lersaths 

VAR status? mitterror);3 


{ FUNCTION: Convert an ASCII representation of a non-decimal base 
{number into an internal binary representation. Leading ASCII 
{blanks are ignored; leading ASCII zeroes will be converted as part 
{of the number. The ASCII number is considered to be unsigned. 


{ 

{ The TARGET_LENGTH is in bytes, 

{ 

{ The ACTUAL_SOURCE_LENGTH returned is the number of source 
{characters processeds including leading blanks and blanks that were 
{ignored or treated as zeros. Illegal characters and blanks treated 
{fas iffegal (MLCSSTOP_LON_ BLANKS) are not inctuded in the actual 
Ciength. 

{ 

{ STATUS MLESBAD_PARAMETERS is returned whenever READ parameters are 
{out of range. 

{ STATUS MLESLOSS_OF_SIGNIFICANCE occurs ahen the target Field is 
{too smali to contain the converted source. The rightmost 
{significant bits are truncated in the target field. 

{ STATUS MLESINVALID_BDP_DATA is returned when an illegal "digit" is 
{present in the source field. A terminatirg blank or comma is NOT 
{considered ittegal. The input field to that vooint will be 
{converted. 
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305011 MLPSINPUT_LFLOATING_MANTISSA 


{ MLDSIFM - Declare miptSinput_floating_mantissa } 


PROCEDURE [XREF1]. miptsinput_floating_mantissa tsource: “cell; 
source_length: mit$string_ltength; 
imbedded _bianks: mitS$handile_ blanks} 
VAR target: mit$fioating_ input; 
VAR decimal_point_ found: booiean; 
VAR actual _source_length: mitSstring_ length; 
VAR status? mitt#error); 


{ FUNCTION: Convert an ASCII representation of a floating point 
{mantissa into an internal representation for fatter conversion to 
{internal floating point after establishing the value of the 
{exponent field. Leading blanks and zeroes are ianorede 

{ 

{ STATUS MLESBAD_LPARAMETERS is returned whenever READ parameters are 
{out of range. 

{ STATUS MLESINVALID_BDP_DATA is returned whenever an fllegal 
{character is detected in the source. This: situation includes 
{possibile exponent field characters "E™ and "D0", compietely biank 
{fieidss and source fields containing onty a sian character. In the 
{latter two casess the field is considered to be identically zero. A 
{terminating blank or comma is NOT considered iltegal. 
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305012 MLPSINPUT FLOATING _ NUMBER 


{ MLDSIFN — Declare miptinput_floating_ nunber’ }- 


PROCEDURE CXREF] mips$input_floating_number (source? “cell; 
source length: mit$string length; 
target: “cell; 
target_liength: mittfliloating_ JIength; 
handie blanks: mitthandie_blanks; 
VAR actual_source_length: mitSstring_fength; 
VAR status: mit#error); 


{ FUNCTION: Convert an ASCII representation of a floating point 
{number (with an optional exponent field) into the internal 
{ibinary) floating point representation. 

{ 

{ RESTRICTIONS: The exponent field must begin with “"E"™, "DOD", *e%, 
{for "dd", Arithmetic overflow during exponent conputation is ignored. 
{ 

{ The only vatid values for the HANDLE BLANKS parameter are 
IMLCSIGNORE BLANKS and MLCE&STOP_LON_BLANK,. 

{ 

{ STATUS MLESINVALID_BDP_DATA is returned whenever an iliegal 
{character is detected in the source field. A terninating blank or 
{comma is NOT considered illegal. 

{ STATUS MLESOVERFLOW will be returned whenever the floating point 
{number is infinite or indefinite AND status fs otherwise no error. 
{ STATUS MLESNO_DIGITS is returned if no digits were found in the 
{sources 
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305013 MLPSINPUT_LINTEGER 


{ MLDOSII - Declare miptinput_integer } 


PROCEDURE [XREF] miosinput_integer (source: “cell; 

source length? mit$string length; 
target: “cell; 
target_ltength: mittinteger_length; 
target_type: mittinteger_ type; 
imbedded_blanks: mit$handte_blanks; 

VAR actual_source_fength: miti%string_lergth; 

VAR status: mit$error); 


{ FUNCTION: Convert an ASCII representation of an Integer into the 
{internal (binary) representation. 

{ 

{ STATUS MLESNO_DIGITS is returned whenever the source string 
{contains no digits (ASCII characters in the set "O0t2422!59'). 

{ STATUS MLESINVALID_S80P_DATA is returned whenever an illegal 
{character is detected in the source field. A biank does NOT cause 
{this error status». STATUS MLESLOSS_OF_LSISNIFICANCE is returned 
{whenever the internal integer field is too smal! ta contain the 
{converted ASCII sources The rightmost significant bits are 
{fretained. 
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305014 MLPSINPUT_UNPACKED_DECIMAL 


{ MLDSIUD — Declare mipSinput_unpacked_decinal } 


PROCEDURE CXREF] mipsinput_unpacked_decinal (source: “cell; 
source_fength: mit$string_f!ength; 
target: “cell; 
target_length: mittSbdp_length; 
VAR actual _source_fength: mittstring_lanroths 
VAR status: mit$error); 


{ FUNCTIGN: Convert an ASCII representation of an unpacked decimal 
{number (with possibly leading blanks and/or a leading sign) into 
{the internal BDP format of UNPACKED DECIMAL TRATLING SIGN 
{COMBINED HOLLERITH. The result will be rtaht justified in the 
{target field. If the resu!t is shorter than the target field» the 
{target field will be zero filied to the teft. The final digit will 
{be changed to conform to the preferred conbtined stan format. 
{Written at the request of the COBOL and FYI orojects. 

i 

{ If a decimal point is encountered before the source field is 
{fexhausteds it terminates the source input and onty the digits 
{preceding the decimal point are converted. The decimal point is 
{counted in the actual _source_length returved and is not considered 
{an iltegal character. 

{ 

{ STATUS MLESINVALID_8DP_DATA is returned whenaver an illegal 
{character is detected in the source. The source is converted up to 
{the illegal character. The illegal character Is not counted in the 
{factual_source_length returned. 

{ STATUS MLESLOSS_OF_LSIGNIFICANCE is returned whenever the target 
{fieitd is too smali to contain the source umber. The rightmost 
{significant digits are retained. Also» if the tength of the 
{significant digits of the sources including the optional signs 
{exceeds 38 bytess STATUS MLESLOSS_OF_SIGNIFICANCE is returned. Onty 
{the first 38 bytes from the teft will be converted. The 
Cactual_source_length returned will include a count of all 
{significant digits encountered in the source even though not all 
{will be converted. 
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325015 MLPSMOVE_BYTES 


{ MLDSMOV - Declare miptmove_bytes. } 


PROCEDURE CXREF] mipSmove_bytes (source? “*celt3 
source length: mitS$string_length; 
target: “cell; 
target _tength:? mit$string length; 
VAR status: mitS$error); 


{ FUNCTION: Provide access to move bytes (42V8) C180 hardware 
{instruction without restricting the caller to fields fess than or 
fequal to 256 bytes. Furthermores allow overtlaoping source and 
{target fields. 

{ 

{ STATUS wild be MLESNO_ERROR 
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325216 MLPSGUTPUT_BASE_NUMBER 


325216 MLPSOUTPUT_BASE NUMBER 


{ MLDS$OBN =— Declaration of miptoutput_base_numnhber } 


PROCEDURE CXREF] mip$Soutput_base_number (source: “cell; 

source length: mit$string_ length; 
target: *cell; 
target_length: mit$string_length; 
base: mittnon_ decimal base; 
Justification: mittjustify; 
Suppress _leading_zeros: boolean; 

VAR actual_target_fength: mitSstring_lenagth; 

VAR status? mitterror) 3 


{ FUNCTION: Convert a binary integer into an (non-decimal) ASCII 
{representations or simply do a memory dunp.: 

{ 

{ SOURCE_LLENGTH is in bytes. 

{ 

{ All bytes of the source number are converted and may yield 
{leading zeros which are part of the converted nunber. These 
{zeros may be suppressed in the target by setting parameter 
CSUPPRESS_LEADING ZEROS to the value TRUE. 

{ 

{ when the target_length Cinciuding leading z2ro0s»s if any) is 
{fess than the size of the target areas blanks may be used to 
{filt in the rest of the area. 

{ 

{ When JUSTIFICATION is MLCSRIGHT_JUSTIFY» blank fi471 is used. For 
CMLCSLEFT_JUSTIFY»s no fill is done. 

{ 

{ ACTUAL _TARGET_LENGTH is the number of non=-blank ASCII characters 
{written to the target. 

{ 

{ STATUS MLESLOSS_OF_SIGNIFICANCE is returned whenever the target 
{field is too small to contain the converted source. Truncation of 
{digits at the teft occurs for right justification. Truncation at 
{the right occurs for left justification. 
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305017 MLPSOUTPUTL FLOATING _DIGITS 


{ MLDSOFD —- Declare mip$output_floating digits }. 


PROCEDURE [XREF] mip$output_floating digits (sources “cell; 

source_ftength: mit$string length; 

target: “cell; 

target _length: mit$string_ length; 

leading _ blanks: mit$string length; 

leading_zeroes? mit$string_ fength; 

decimal_point: mittstring length; 

Sign character: chars 

VAR status: mittSerror); 


{ FUNCTION: Generate an ASCII floating point mantissa given an ASCII 
{or unpacked decimal traiting sign combined holtllerith string of 
{digits and formatting information. 

{ 

{ The value of DECIMAL_POINT is the tocation In the target “string” 
{of the decimal point character. Note that the first position in the 
{string has an index of 0. 

{ 

{ TARGET_LENGTH must be greater than SQURTE_LENGT4 + LEADING _BLANKS 
{t+ ordt SIGN_CHARACTER <> chr{ 0) ). 

{ 

{ The target area wil! be right-fillted with zeroes If necessary to 
{entirely fill the field. 

{ 

{ STATUS will contain MLESNO_LERRORR. 
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325018 MLPSOUTPUT_LFLOATING NUMBER 


{ MLDSOFN - Declare miptoutput_ floating _nunber } 


PROCEDURE CXREF] mipfS$output_floating_number (source: “cells 
source_length: mit$floating fength; 
target: “cell; 
format: mitS$output_ format; 
VAR actual _target_iength: mitSstring length; 
WAR status: mitterror); 


{ FUNCTION: Convert a floating point number into an ASCII 
{representation. 

{ 

{ FORMAT describes the format of the resuit string. The names of the 
{fordinats for the FORMAT field (of the sane-naned parameter) are 
{derived from FORTRAN-style format descriotors. 

{ When the FORMAT field contains MLCSLIST DIRECTED, the number is 
{output in either a modified — or modified F format. If the absotute 
{value of the number is greater than or equal to 10**-6 and iess 
{than 10**9s the modified F format is used: otherwise the modified E 
{format is used. The DIGITS fietd gives the nunher of digits to 
{which the number is rounded. Trailing zeroes after the decimal 
{point are always removed. The SCALE_LFACTI2 field is ignored; 
{rathers a scale_factor of 0 is used for the modified F styles and 1 
{is used for the modified E format. The EXPONENT_LSTYLE Field Is also 
{ignorede. No exponent occurs for F styles ands for F styles the 
{width of the field will be the minimum needed. If the WIDTH Fieid 
{is insufficient to hold the representation with af! DIGITS 
{significant digitss then digits wil! be truncated from the right of 
{the mantissa in order to fit the representation into WIDTH 
{characters. 

{ When the FORMAT field does not contain YLCELIST_DIRECTEDs the 
CEXPONENT_STYLE field contains either 0 ar the number of digits in 
{the exponent. When 0 is provideds the normal FORTRAN styte of four 
{characters for the exponent is used. When the JUSTIFICATION fieltd 
{indicates right justifications blank fill will occur on the fteft. 
{Otherwise there is no fill. 


{ 

{ ACTUAL_TARGET_LENGTH wil! contain the nunber of characters written 
{to the target areas exctuding any paddina. 

{ 

{ STATUS MLESBAD_ PARAMETERS Is returned when FIRMAT.WIDTH is 
{inconsistent with the other fields of FORMAT, Independent of the 
{value of the floating point number. 

{ STATUS MLESINFINITE is returned whenever the source floating point 
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{number is infinite. 

{ STATUS MLESINDEFINITE is returned whenever the source floating 
{point number is indefinite. 

{ STATUS MLESLOSS_LOFLSIGNIFICANCE is returned whenever the 
{particular vaiue of the floating point nunber is not representable 
{in the format specified. 
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325219 MLPSOUTPUT_INTEGER 


{ MLDSOI - Declare mipsSoutput_integer } 


PROCEDURE CXREF] mipt$output_integer (source: “cells 

source length? mitS$integer_ length; 
source _type: mitdsinteger_type; 
target: “cell; 
target_length: mitéstring length; 
justification: mit$justify; 
Sign: mitSsign treatment; 

VAR actual_target_length: mit$string_length; 

VAR status! mitterror); 


£ FUNCTION: Convert an integer into an ASCII representation. 

{ 

{ When JUSTIFICATION is MLCSRIGHT_JUSTIFY» the target area is 
{blank-filled to the left. Otherwise no fill is done. 

{ 

{ ACTUAL_TARGET_LENGTH will contain the nunber of digits written to 
{the target area pilus ls» if there is a signe. 

{ 

{ STATUS MLESLOSS_OF_LSIGNIFICANCE is returred whenever the target 
{field is too small to contain the converted source. Truncation of 
{the leftmost digits occurs, 
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325220 MLPSROUND_FLOATING_ NUMBER 


{ MLOSRFN ~- Declare mip$round floating _nunber }. 


PROCEDURE CXREFI] miptround floating number’ (source: “cell; 
source_length: mitSfloating length; . 
target: “cell; 
number_of_digits: mit$digit_string_Viength; 
power_of_ten: integer}; 
VAR status: mitterror); 


{ FUNCTIGN: Convert a Floating point number’ into an ASCII string 
{containing the First NUMBER_OF_DIGITS significant digits (rounded). 
{MLPSSCALE_FLDOATING NUMBER must be called before 
{MLPSROUND_FLOATING_ NUMBER», and the POWER_LJF_TEN result of 
CMLPSSCALE_FLOATING.NUMBER must be passed to 

{MLPSROUND_ FLOATING NUMBER. 

{ 

{ MLPSROUND_LFLOATING_OUTPUT and MLPSSCALE_LFLOATING_GUTPUT must be 
{fused by afl €180 products for the output of Floating point 
{numbers to ensure uniform representation throughout the C180 
{product sete. MLPSOUTPUT_FLOATING_ NUMBER will do this for the users 
{provided that the availabie floating point. formats of the latter 
{procedure are adequate for the user's purdoses 

{ 

{ STATUS MLESBAD_PARAMETERS is returned whenever the floating point 
{number is infinite or indefinite. (This should have been caught 
{by the call to MLPSSCALE_FLOATING_ NUMBER.) 

{ STATUS MLESOVERFLOW is returned whenever the rounded source 
{Inumber'ts POWER_LOF_LTEN differs from the actual onwer as passed by 
{the caller. The digit string returned is then "10...,0". 
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325021 MLPSSCALE_FLOATING NUMBER 


{ MLD$SFN — Declare miptscale_floating_nunber } 


PROCEDURE {CXREF] miptscale_floating_ number (source: *celdd; 
source length: mit$floating_ length; 
VAR power_of_ten? integer; 
VAR status: mitSerror); 


{ FUNCTION : Determine the vaiue of the (decimal) exponent of a 
{floating point number in the form dedd wee FE ov 

{ 

{ POWER_LOF_LTEN will contain 0 if the floating point number is zero. 
{Otherwises if x is the absolute value of the Floating point number 
Cand 1.0 <= x * 10**e ¢ 10.09 then POWER_LJ=_TEN wilt contain e. 

{ 

{ STATUS MLESINDEFINITE is returned whenver the source is 
{indefinite. STATUS MLESINFINITE is returned whenever the source is 
Cinfinite. 
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305022 MLPSSCAN_BYTES 


{ MLDSSCA - Declare miptscan_bytes } 


PROCEDURE CXREF] mip$scan_bytes (source: “cell; 
| source_length: mit$string_ length; 
scan_table: “cell; 
VAR number not matching: mit$string_ length; 
VAR status: mitterror); 


{ FUNCTION: Provide access to the scan bytes while non-member (SCNB) 
{C180 hardware instructions without restricting the calier to 
{lengths tess than or equal to 256 bytes. 

{ 


{ STATUS will contain MLESNO_ERROR. 
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305023 MLPSTESTLFOR_LEXCEPTION 


{ MLDSTEX - Declare mipStest_for_ exception }. 


PROCEDURE [XREF] mip$test_for_exception (source: “cell; 
VAR status: mittSerror);3 


{ FUNCTION: Test a Floating point number for infinite or indefinite. 
{ 

{ If the number is indefinites return MLESINDEFINITE in STATUS. 

{ If the number is infinites return MLESINFINITE. Otherwise 

{return MLESNO_ERROR. 


CONTROL DATA CORPORATION — CIMPANY PRIVATE = Revision £E 
3-27 

C180 Common Modules Mathematical Library (CMML) ERS 
85/08/23 


SP AN ED ON SEND WO ANNE ENED ED ERD ND OND ANN ON EOD EN ES A EE AED LD EDS ONE SAND DS AE NN RD ONT ED ED ARG RN EE RD ARN END END WEED EN TD «ED ED OE GD VO AED ED ED SS US ED ND ED ED AED A ED UE AD ED OD ROD 


3-0 NUMERTC CONVERSION AND ASSEMBLY LANGJAGE SJPPORT ROUTINES 
305024 MLPSTRANSLATE_BYTES 


SD 0 AN ND ED ED ER OD SEED AA EE ND TS ED AED SE RN AED ES ED AE ED AE END EP ON  -E  SS ilne Ee EN GE NN ED BS OT AR A ED ORD ED OD ES GED CD EE “AED CUD GND GED AND “AD -D Sals NN pe A a a ee ee ee 


325024 MLPSTRANSLATE_ BYTES 


{ MLOSTRA -—— Dectare mipttranstate_bytes } 


PROCEDURE CXREF] mip$translate_bytes (source: “cell 
source_length: mit$string length; 
target: “cell; 
target_length: mit%string_lenath;3 
translation _table: “cell; 

VAR status: mit$error); 


{ FUNCTIGN: Provide access to the transtate bvtes (TRANS) C180 
{hardware instruction without restricting the sourtte or target to 
{a maximum of 256 bytes. 

{ 
{ STATUS will atways be MLESNO ERROR, 
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345225 MLPSVAX_TO_180_FLGATING 
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{ MLDVAXF -- Dectare mIpSVAX_to_180_floating } 


PROCEDURE CXREF] mip$vax_to_180_floating (source: “cell; 
source _ type: mittvax_Floating type; 
target: “cell; 
target_length? mitSfiloating_ Tengths 
VAR status: mit$error); 


{ FUNCTION: Convert a VAX floating point number of the specified 
{source _type to a C180 floating point nunber of the specified 
{target length. 


{ 

{ 

{ LENGTH AND SIZE INFORMATION FOR FLOATING TYPES: 

{ 

8 TYPE LENGTH EXPONENT TRUE FRACTION 
{ (BYTES) SIZE t(BITS) SIZE (BITS) 
SF eee ae acta ee Bd Bie oe ed Siac feng eee Si Ae cts Ot che ee 
{ 

{ 

{ micS$vax_4_F_ float 4 3 24 

{ mictvax_8_D_float 8 8 56 

{ mic$vax_8_G6_float 8 L1 53 

{ micSvax_16_H_ float 16 15 113 

{. mictsingle precision 8 15 48 

{ mictdouble_precision 16 15 96 

{ 

{ 


£ ERROR STATUS: 

{MLESBAD_PARAMETERS is returned whenever source type or taraget_ 
Ctength is out-of-range. 

{ 

{CA¥l VAX Reserved Operand values are converted to C180 +INFINITE 
{and status MLESINFINITE is returned. 

{ 

{No other errors can occur for mictvax_4_F_float type conversion. 
{Such values can always be converted exact!y to C180 floating 
{point formats. 

{ 

{Mic$vax_8 d_fioat and mict$vax_8_g9 float VAX values can always be 
{represented within range In C180 format r'egardiess of target 
{lengthe However, significance can be fost as a resuit of the 
{fewer number of fraction bits available for €1890 singlte_precision 
{floating point format. The result is rounded to 48 bits of 
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{significance and MLESLOSS_OF_LSIGNIFICANSE Is returned. Signif- 
Cicance can be preserved for these VAX 8<hyte types by specifying 
{C180 mictdouble_precision for the target length. 

{ 


nada oe ee 


{VAX mictyvax_16_H float values can exceed 2189 double precision 
{values in both range and precision. Since there is such a large 
{difference in the number of fraction bits between the VAX and 
{C180 16-byte floating point formatss the result Is rounded to 
{96 bits of precisions but no loss_of_significance error will be 
{signaled for these conversions unless the target length was 
{specified as mictssingle_precision. . 

{ 

{The table below shows the result and error status for VAX values 
{that are out~of-range for C180 single and double orecision 
{floating point numbers. VAX values that convert to C180 values 
{with the following C180 biased exponents will oroduce the 
{indicated results. The exponents inctude the sign hit: 

{ 


; C180 BIASED EXPONENT ~ RESULT ERROR STATUS 

: oo eee +--+ + te see saen ass 

{ 

€ OXXX or 8XXX 0 MLESNO_LERROR 

é 1000-2FFF or 9000-AFFF 0 MLE SUNDERFLOW 
c 5000-6F FF +INFINITE MLE SOVERFLOW 

; DOOO-EFFF ~INFINITE MLESOVERFLOW 

; 7XXX +INDEFINITS MLES INDEFINITE 
; FXXX ~INDEFINITE MLES INDEFINITE 
{ *VAX Reserved Oper and* +INFINITE MLESINFINITE 
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3054226 MLPSVAX_TOL1LBO_FORTRAN_LOGICAL 


{ MLDVAXL -— Declare mipSVAX_to_180_fortran_Jogicali } 


og be a ah ee we He ee 


ne ee be BH Bw 


PROCEDURE CXREFI] mip$vax_to_180_fortran_logical (source: *cell; 
source_tength: mit$vax_logical_tength; 
target: “cell; | 
target_length: mit$SFORTRAN_ logical _lenath;3 
VAR status: milt$error); 


{ FUNCTION: Convert a VAX Jtogical value to a €180 FORTRAN 
{logical value of the specified length. The right most bit in 
{the first byte of the VAX vatue is used to deternine the 
{logical value. A one bit means TRUE and a zero tn this bit. 
{means FALSE. The €180 FORTRAN logical result uses the sign 
{bit {bit 0) of the resuit to indicate its logical vaiue. 
{The sign bit of the target will be set to a one for TRUE 
{Cand to a zero for FALSE. The remaining bits in the result 
{will be afl zeros. 

{ 

£ ERROR STATUS: 

{MLESBAD_PARAMETERS is returned whenever source_length or 
{target length is out-of-range; otherwises STATUS will always 
{be MLESNO_ERROR, 

{ 
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3e5e27 MLPSVAX_TO_LIB8O_INTEGER 


{ MLDVAXI -—- Declare mip$VAX_to_180_integer }. 


oe 2H Oe wee aoe Oe 


PROCEDURE [XREF] mip$vax_to_180_integer (source: “celd; 
source_length? mitS$vax_integer_length3 
target: “cell; - | 
target _fength: mitSinteger _Sength; 
VAR status: mitS%error); 


{ FUNCTIGN: Convert a twots complement sigred integer value in 
{VAX format to a signed integer in €180 format. The target result 
{is always right-justified with sign extension to the left. 

{ 

{ ERROR STATUS? 

{MLESBAD PARAMETERS is returned whenever the source length or the 
{target_ltength is out-of-range,. 

{ 

{MLESLOSS_OF_SIGNIFICANCE is returned when the VAX number is not 
{representable as a C180 number of the soecified fength. The C1890 
{result is truncated at the left to fit the target Field. 

{ 
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325228 MLPSVAX_TO_L180_PACKED_DECIMAL 


{I MLDVAXPD -- Dectare mip$VAX_to_180_packed decimal } 
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PROCEDURE [CXREF] mip$vax_to_180_packed_decinal source: “cell; 
source_Jlength: mit$vax_packed_ decimal length; 
target: “cell; — 
target_length: mitt$bdp_length; 
VAR status: mitterror); 


{ FUNCTION: Convert a VAX packed decima! value of the specified 
{length to a C180 packed decimal value of the desired target_tength. 
{ 

£ ERROR STATUS: 

{STATUS MLESBAD_ PARAMETERS is returned whanever the source_tength 
{or target _iength is out-of-range. 

{ = 

{STATUS MLESLOSS_OF_SIGNIFICANCE is returned whenever the target 
{Field is too smaii to contain the converted sources. The target 
{will contain the rightmost significant digits of the converted 
{sources 


{ 
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305029 MLPS170_TOL1LBO_BINARY 


{ MLD$78B - Declare mip$170_to_180_binary } 


PROCEDURE CXREF] mip$170_to_180_binary (source: “cell; 


source length: mit$string_ length; 
source bit_offset: 2 2.2. 73 
target: “cell3 
target_length: mittstring_ftength; 
target_bit_offset: 0 .. 73 

VAR status: mitt$error) 3 


{ FUNCTION : convert a Ci70O bit string (in 6 of 8 Format) into a 
{C180 bit string. Written at the request of thea FYY project. 

{ 

{ Note that both source and target tength are givan in bits. 

{ 

{ When the source_length is greater than the target length» the 
{target field is filled with the leftmost bits of the source with 
{no error status returned. 

{ 

{ When target_length is greater than source _length the target is 
{right filled with zeroes, 

{ 

€ STATUS MLESBAD PARAMETERS is returned when read-only parameters 
{are out of range. 
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325230 MLPS170_TO_L180_FLOATING 


{ MLD$78F = Declare mip$170_to_180_floating } 


PROCEDURE CXREF] min$170_to_180_floating (source: “cell; 
target: “cell; 


size: mitSfloating_length; 
VAR status? mitSerror); 


{ FUNCTION: Convert a floating point number in £170 notation (6 of 8B 
{format) to a C180 floating point number. dritten at the request of 
{the FMU project. 


{ 

{ STATUS MLESBAD_PARAMETERS is returned whenever size is out of 
{range,. 

£ STATUS MLEDINFINITE is returned when the C179 number has the 
Cexponent 3777(8) or 4000(8)3 the C180 valise returned is. +/—- INF. 

{ STATUS MLESINDEFINITE is returned when the $170 number has the 
fexponent 1777(8) or 6000(8)3 the C180 value returned is +/- INDEF. 
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305031 MLPSI7O_TOLI80_LINTEGER 


{ MLDS78I - Dectare mip$170_186_integer } 


PROCEDURE LCXREF] mip$170_to_180_integer (source: “cell; 
source_length: 1 .- 103 
target: “cell; 


target_length: mit$integer_Jength; 
target _type: mittinteger_type; 
VAR status? mitSerror) 3 


{ FUNCTION: Convert an integer in €170 6 of 3 fornat to an integer 
{in C180 format. The target is always right-justified with sign 
{extension to the left. 

{ 


{ C170 negative zero is represented as zern (9420) on the C180. 


{ 

{ STATUS MLESBAD_PARAMETERS is returned whenever a read-only 
{parameter is out-of-range. 

{ STATUS MLESLOSS_OF_LSIGNIFICANCE is returned when the C170 number 
{is not representable as a C180 number of the specified tength 
{and type. Truncation at the left occurs to for'ce-fit the 
{remainder. 
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305032 MLPS$LB8O0_TO_170_BINARY 


{ MLD$87B - Declare mip$180_to_170_binary } 


PROCEDURE CXREFIJ] mip$180_to_170_binary (source: “cell; 
source _Jlength: mit$string_length; 
source _bit_offset: 0 e+ 73 
target: “cell; 


target_length: mitS$string <angtns 
target_bit_offFset: 2 .. 73 
VAR status: mitserror)3 


{ FUNCTION: Convert C180 bit strings (non-aligned) into C170 bit 
{strings (also non-aligned) in 6 of 8 fornat. Written at the 
{request of the FMU project. 

{ . | 

{ Note that both SOURCE_LENGTH and TARGET _LENGTH are in bits. 

{ 

{ When TARGET_LENGTH is greater ‘than SOURTE_LENGT4, the target is 
fright filled with zeroes. 

{ ‘ 
{ When SOURCE_LENGTH is greater than TARGET_LENGTHs the target is 
{filted with the leftmost bits of the source. No error status is 
{recor ded. 

{ 

{ STATUS MLESBAD_ PARAMETERS is returned whenever a READ onty 
{parameter is out-of-range. 
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365233 MLPS180_TO_L170_FLOATING 


{ MLDS$87F — Dectare mipti80_to_170_floating } 


PROCEDURE CXREF] mip$180_to_170_floating (source: “cell; 
target: “cell; 
size: mit$floating_length; 
VAR status: mittderror); 


{ FUNCTION: Convert a C180 floating point number into a C170 
{floating point number (in 6 of 8 format). written at the 

{request of the FMU project. 

{ 5 : 

{ STATUS MLESBAD_PARAMETERS is returned if size is out of ranges 

{ STATUS MLESUNDERFLOW is returned when the C130 exvonent is too 
{smaii to be represented in C170 formats Zero Is returned as the 
{value of the C170 number. 

{ STATUS MLESOVERFLOW is returned when the (C180 exponent is too 
{large to be represented in C170 format. The C170 value returned 
fin the case is 37770000006000000000(8)» or 40990090000000000000018) 
{if the C180 number is negative. 

{ STATUS MLESINFINITE is returned whenever the €180 number is +/- 
CINF. The C170 number returned will be 37779..29(8) or 4000..0(8)>» 
{respectively. 

{ STATUS MLESINDEFINITE is returned whenever the €180 number is +/- 
CINDEF. The C170 number returned will be 17779..0(8) or 600022018)» 
{respectively. 
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305034 MLPSIBO_TOLL7O_L INTEGER 


{ MLD$87I - Declare mip$180_to_170_integer +} 


PROCEDURE CXREF] mip$180_to_170_integer (sources “cell; 
source _length: mnitSinteger_Jength; 
source type: mit$integer_type}3 
target: “cell; 
target_iength: 1 2.2 10; 
VAR status: mitt$error); 


£ FUNCTION: Convert an integer in C180 format into an integer in 
{C170 format (6 of 9). The target Field is: always right-—justified 
{with sign extension on the left. Written at the request of the FMU 
{project. 

{ 


{ STATUS MLESBAD_PARAMETERS is returned whenever a read-only 
{parameter is out~-of-range. 

{ STATUS MLESLOSS_OF_SIGNIFICANCE is returned whenever the C180 
{number is not representable in the specified 2170 format. 
{Truncation occurs at the left of the source to force fit the 
{remainder. 
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The CMML-defined types and constants used in the Connon Support routines 


and their specifications are described here as CYBIL deciarations. 


Ale1l MLTSBOP_LENGTH 


A) AUD ce RS aD Ae ED cee OD a ae 


{ MLTBDPL -- Dectaration of mit$bdp_tength }- 


CONST 
mic$min_bdp_ftength = O» 
mic$max_ bdp_fength = 338; 


TYPE 
mitSbdp _iength = mic$min bdp_length 2. nictmax_bdo_fength; 
Al.2 MLTSBOP_TYPE 


{ MLTBDP -=- Deciaration of mit$bdp_type } 


TYPE 

mitS$bdp_type = (milct$packed_unsigneds miectpacked_unsigned_siack» 
mic$packed_ decimal_signeds mict$packed_decimal_signed_stacks 
micsunpacked_unsigneds mictunpacked_traiting_hotterith,s 
mics$unpacked trailing separates micSunoacked_leading_holleriths 
mictunpacked_fteading separates micS$alohanumerics 
micSbinary_unsigneds mictbinary_usigneds 
mic$translated packed signeds mic$trarstated_sacked_ stacks 
micS$translated binary _unsigneds mictStranslated binary signed); 

Al-3 MLTSCOMPARE 


A Pe AS a a aD ee ee ee 


{ MLTCOMP =-— Declaration of mit%$compare } 


TYPE 
mit$compare = (mic$equals mict$source_is_greaters mictunordereds 
micStarget_is greater); 
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Aie0 TYPES AND CONSTANTS FOR SUPPORT ROUTINES 
A1.4 MLTSDIGIT_STRING_LENGTH 


ED Ae AE GE EE OED “EN RD ETD EE. ED END AED OD EE A EDN AP TD OND OED A ED ND A ERD. AD ENE ED AEN EY OE ED SIT LOL EAE OND TAR NE EE DCO ED ON OE ED ND AD ERD I AD A UD CD NS ND ED END NY NEY RE EA IN AND mS cae eR 


A1le4 MLTSDIGIT_STRING_LENGTH 
{ MLTDSL -- Declaration of mit$digit_string_tength } 


CONST 
mictmin digit ustring_fength = O>, 


micimax_idigit string length = 35; 


; 
TYPE 


mit&$digit _string_length = micS$min digit strina_length 
mictmax_digit _string_length; 
Als5 MLTSERROR 


oe 


{ MLTERR =-- Declaration of mit$error } 


TYPE 
mitSerror = (mietno_errors mnileS$invalid_bdp_ datas. 
miesgloss_of_significances mietoverflows, nletunder flows 


mieSindefinites mileSinfinites mietbad_paranetarss 
mietno_digits); 


Al-e6 MLTSEXPONENT_STYLE 


{ MLTES -- Dectaration of mittexponent_stylte }. 


CONST 
mictSmin exponent style = O» 
mictmax_exponent ustyte = 6; 


TYPE 


mitSexponent_style = micsémin exponent style 
mictmax_exponent_styte;3 
Als? MLTSFLOATING_ INPUT 


os 


{ MLTFI -— Declaration of mittfioating_input } 
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A120 TYPES AND CONSTANTS FOR SUPPORT ROUTINES 
A1l.7 MLTSFLOATING_INPUT 


PA DD AD ED ED WER AD EN ORD ERD GED ED ED ND ED SEN ED AAD CD GAD TED REED A Ca HET ENN AED AED WOT END AED ANE ND AE AE ON A ED AE DAD NO ND etl ND ED ~ CE ND ED AND ED ED OED ED AD a ND ED sae “ae ams a aD 


TYPE 


mitsfloating_input = array [1 «+2 120) of cell; 
A1l.e8 MLTSFLOATING LENGTH 


aa Bae 


{ MLTFL ~-- Declaration of mits$floating_ftength } 


TYPE 
mittfloating_length = (milctsingie_precisions 
mictdouble_precision);3 
A1l.9 MLTSFORMAT 


{ MLTFORM -- Declaration of mit$format } 


TYPE 

mittformat = (mic$foistyles micte_styles nictg style, 
mic$list _directeds mictnamelist);5 

A1.10 MLTSFORTRAN_LOGICAL_LENGTH 


{ MLTFTLL -- Declaration of mittfortran_logical_l!enath } 


TYPE 
mitSfortran_logical_length = 1 «+ 83 


Alell MLTSHANDLE_BLANKS 


ED OE ED ED ED yD Em ne A ED A ae 


{ MLTHB -— Declaration of mit$handie_ blanks } 


TYPE 
mitshandle_ blanks = (mic$ignore blanks» nictstoo_on_bl ank» 
mictblanks_equal_zero)3 
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Ale 0 TYPES AND CONSTANTS FGR SUPPORT ROUTINES 
Alel2 MLTSINTEGER_LENGTH 
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{ MLTIL -— Declaration of mittinteger_length }. 


CONST 
micimin integer length = 1» 
mictmax_integer_fength = 8; 


TYPE 
mittinteger_length = mictmin_integer_lerath eo. 
mictmax_integer_ length; 
Al.13 MLTSINTEGER_TYPE 


{ MLTIT -——- Dectaration of mitsinteger_type } 


TYPE 
mitsinteger_type = (mict$signed integers nictunsigqned_integer); 
A1.14 MLTSJUSTIFY 


EE ine EY ED WHR Ge em OD “OD AE ee 


{ MLTJUST -- Declaration of mits justify } 


TYPE 
mits justify = (micSleft justify» mictriaht . justify); 
A1l.15 MLTSNON_DECIMAL_BASE 


{ MLTNDB -- Type declarations for numeric conversion routines } 


TYPE 
mit$non_decimal_base = (mictbinarys mictoctal»s nicthexadecimal ); 
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Al.0 TYPES AND CONSTANTS FOR SUPPORT ROUTINES 
A1le16 MLTSOUTPUT_FORMAT 
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A1l.16 MLTSOUTPUT_FORMAT 


> LS A DD AD AD ER VO UA came ND ae EP ae 


{ MLTOF -- Deciaration of mitSoutput_format } 


TYPE 

mitSoutput_format = record 
justification: mits$justifys 
Sign: mit$siqn_treatmenty» 
format: mittformat,» 
scate_factor: integers 
width: mitSstring_tenathys 
digits: mit%$string_ lengths 
exponent character: chars» 
exponent istyle2 mitSexponent_styles 

recend; 

A1.17 MLTSSIGN_TREATMENT 


{ MLTST -=— Dectaration of mit$sign_treatnent: }- 


TYPE 
mitSsign treatment = (mictminus_if_ negatives micSaiways_ signed); 
A1.18 MLTS$STRING_LENGTH 


{ MLTSL -- Declaration of mit%string_tength }. 


CONST 
micsmin string _ftength = O» 
micgmax_string_length = 7fFFFFFFFI16); 


TYPE 
mitSstring length = mictmin string _fenath oe 
micSmax_ string _lengths; 
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Ale 0 TYPES AND CONSTANTS FOR SUPPORT ROUTINES 
Al.19 MLTSVAX_FLOATING_TYPE 


ne 


A1.19 MLTSVAX_FLOATING_TYPE 


A ANSE LE NO SED ON ND OE TN CaN OE SD RS i to Se “A aD 


{ MLTIVXFT -- Declaration of mitSvax_floating_tyoe } 


TYPE 
mittvax_floating_type = (micSVAX_4_F_floatys nictVAX_8_D_float» 
micsVAX_8_G_floats, micSVAX_16_H float); 


AlL.20 MLTISVAX_INTEGER_LENGTH 


A A AN A OG “OG AN AOE ANE SG. NS EN ON AO A ee a 


{ MLTVXIL -- Dectaration of mitSvax_integer_lenath } 


CONST 
mictmin_VAX_integer_length = ls» 
micSmax VAX _integer_tength = 8; 


TYPE 
mitsVAX_integer_length = mic$min_VAX_integer_length .. 
micSmax_VAX_inteser_ length; 


Ale21 MLTSVAX_LOGICAL_LENGTH 


SS NS ee A Ded “A A EO -ED ee 2D OE See a a ee Ae 


{ MLTVXLL -- Declaration of mittvax_logica!l_lenath } 


TYPE 
mitSvax_logicalt_tength = (micSvax_logical_ 1+ micSvax_ltogical_ 2» 
micsvax_logical_§4); 


A1L.22 MLTSVAX_PACKED_DECIMAL_LENGTH 


LS OD AN LL AN AEA ES “AD ES A AE AOD A ES A A -ae  A  ae wee 


{ MLTVXDL -— Declaration of mitS$vax_packed_decimal Jtength } 


TYPE 
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Al. 0 TYPES AND CONSTANTS FOR SUPPORT ROUTINES 
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en eh he be Oe Oe HH Oe OE BH ce OE BH BH we 
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Als22 MLTSVAX_PACKED_LDECIMAL_LENGTH 


NP GA A A EN ANNO EN EE AN A A NE SE ERS “SES TEN EE CaaS ae cel AN NS “OE anette NUN EA SNE AD gn SITE ELE ENN EE EES SOE SD SED TE ON = GD A ED ENS <A “ED SED - ANN SRD ER A ““S - SeN E E SRD SeS e a  iee ee 


mit$vax_packed_decimal_length =] ee 193 
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B1l.0 CMML MATHEMATICAL ERRORS 


wee bal te 


B1l.eO CMML MATHEMATICAL ERRORS 


A SRN NEEDS EEN: ED A ADS RG ED EN ED ND AED SD RN TN SO NL ENS AED <a a 


The error numbers and message templates for the CMML Math Library 
functions are contained in this appandix. The function input 
parameter(s) are displayed along with each error ness age. 


{ MLCBEN -— Definition of CMML base error’ number’ }- 


CONST 
mictbaselerronum = 670000; 


{ MLEACOS -- Error numbers for ACQS } 


CONST 


mieSBacos_arg_indef = micSbase_err_ enum + ls 
{F +N4#P(4+P). Argument indefinite. 


mieSacos_arg_inf = mictbase_err num + 2» 
{CF +N+P(+#P). Argument infinite. 


miet$acos_arg_range = mic$base_err_num + 3 
{F +#N+P(4+P). Argument must be in range (-1.991.9)3.} 


* 
3 


{ MLEAINT -- Error numbers for AINT } 


CONST 


miestaint_larg_indef = mict$base_err_eunum + 4,5 
{F +N+P(4P). Argument indefinite.} 


mieSaintl_arg_inf = mictbase_err enum + 5 
{F +N+P(+P). Argument infinite.} 


3 
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{ MLEALN -- Error numbers for ALOG } 


CONST 


mieSalog arg _indef = mictbase_err enum + 5s 
{F +#N4#P(4P). Argument indefinite.}. 


mleBaiog_arg_inf = micS$base_err_num + 7». 
{F +#N+P(4+P). Argument infinite.} 


mletalog_arg_0 = micSbase_err unum + 8» 
{F +N4+P(0.0). Argument must be > 0.0.} 


mlesalog_arg_neg = mict$base_err_ enum + 9 
{F +N+P(+P). Argument must be > 0.0.} 


* 
2 


{ MLEALOG =-— Error numbers for ALOG10 } 


CONST 


mie$SaloglO_arg_indef = mic$base_err nun + 19s) 
{F +N+P(+P). Argument indefinite.} 


miegaloglO_arg_inf = mictbase_err_num + Ll» 
{F #N+#P(4+P),. Argument infinite.} 


miefBaloglO_arg_0 = micSbase_err_num + 125. 
{F #N+P(0.0). Argument must be > 0.0.} 


mieSZaltoglO_arg_neg = mictbase_err_num + 13 
{F +N4+P(+P). Argument must be > 020.} 


» 
3 


{ MLEAMOD -—- Error numbers for AMOD } 


CONST 
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B120 CMML MATHEMATICAL ERRORS 


mieSamodiargl_indef = micSbase_err_num + 14,5 
{F #N+P(argl=+Ps,arg2=+P). Argl indefinite.} 


mleSamod_arg2_indef = mictbase_err_num + 159. 
{CF +N+P(argl=+Ps,arg2=+P). Arg2 indefinite.}. 


mieSamod_argl_inf = milc$base_err_num + 1h» 
{F +N4#P( argl=+Psarg2=+P). Argl infinite.} 


mieSamod_arg2_inf = mictbase_err_num + 175 
{F +N4+P( argl=+Psarg2=+P). Arg2 infinites,?} 


mieSBamod_arg2_0 = mictbase_erreunum + 13, 
{F #N+P(argl=+Psarg2=0.0). Arg2 must be nonzerd.}- 


mleSamod_args_range = mictbase_err_eonum + 19 
{F #N+PCargl=+Pyarg2=+P). Argl/arg2 infinite.} 


* 
3 


{ MLEANIN -- Error numbers for ANINT } 


CONST 


mieSanintlarglindef = mictbaselerronum + 29>» 
{F +Nt+P(+P). Argument indefinite.} 


mieg$anint_larg_inf = micS$base_err_num + 21 
{F +#N#P(4+P). Arg infinite.} 


e 
? 


{ MLEASIN -- Error numbers for ASIN } 


CONST 


mie$asin_arg_indef = mict$base_err_ num + 22,5 
{F +N+P(+P). Argument indefinite.} 


mieS$asin_-arg_inf = micS$base_err_num + 235 
{F #N+P(4+P). Argument infinite.} 


CONTROL DATA CORPORATION -— COMPANY PRIVATE = Revision E 
B1-4 

C180 Common Modules Mathematical Library (CMML) ERS 
85/08/23 


AD een Mitel NERD AD ED En AE ND AE RD ES EA OE A AN AD OD ND OND AO OS ED AD ED A SEND AD ND AN SE Aan ED NS NY END TD ND ANE ES EE ND SED ED AD ED ND AD SD EP ED GE AED SERED ADD AED CUED OND EN UD AED AEN OR CRED ED aneD 


B1.O0 CMML MATHEMATICAL ERRORS 


mieSasin_arg range = mictbase_err_num + 24. 
{F +N+P(4+P). Argument must be in range [-1.091.91].} 


2 
3 


{ MLEATAN =~ Error numbers for ATAN } 


CONST 


miesgatan_arg_indef = mic$base_err num + 25 
{F +N4#P(+P),. Argument indefinite.} 


2 
> 


{ MLEATN2 -- Error numbers for ATAN2 } 


CONST 


mlieSatan2_argl_indef = mic$base_err nun + 26» 
{F +N+P(argl1=4+Ps,arg2=+P). Argl indefinite.} 


mieSQatan2_arg2_indef = mictbase_err nun + 279° 
{CF +N+P(argl=+Psarg2=+P). Arg2 indefinite.} 


mietatan2 args _inf = mictbase_errounum + 28, 
CF +N+P( argl=4+P,yarg2=+P). Both arguments infinite.} 


mieSatan2_args_0 = mic$base_err_ unum + 29s 

[F +N4#P(0.090.0). One argument must be r9nzero.} 
mieZatan2_args_range = mictbase_err_nun + 39 

{F #NeP(argl=4+P,arg2=+P). Arg2 must be zero if aral/arg2 
{infinite.} 


a 


, 


{ MLEATNH -- Error numbers for ATANH } 


CONST 
mieSatanh_arg_indef = mict$base_err enum + 315 
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{F +N4+P(4#P). Argument indefinite.} 


aa Ohe 


mieSatanh_arg_inf = mictbase_err_onum + 32>» 
{CF +N+P(4+P),. Argument infinite.} 


mieZatanh larg range = mictbase_err unum + 33 
{F +#N+P(4P). ABS(argument) must be < 1.9.} 


2 
? 


{ MLECABS -— Error numbers for CABS } 


CONST 


mlie$cabs_arg_indef = mictSbase_err num + 2324» 
{CF +N+P((+P,4P)). Argument indefinite.} 


mie$cabs_arg inf = mictbaselerr num + 35,5 
CF +N#P((4+P,54+P)),. Argument infinite.} 


mieScabs_result_inf = micS$base_err_ num + 36 
{CF +N+P((+P,4+P)). Result infinite} 


; 
{ MLECCOS -- Error numbers for CCOS } 


CONST 


miletccos_arg_indef = micS$base_err num + 37s 
{F +N#P({4+P,+P)). Argument indefinite.} 


mie$ccos_arg_inf = mict%base_err num + 335 
{F #N4+P((+P,+4+P)). Argument infinite.} 


mieSccos_real_range = micS$base_err num + 39». 
{CF +N+P((#Ps+P)). ABS( real part) must be < 2.#*47,} 


mietccos_imag_too_big = mict$base_err nun + 49s 
{F +N#P((+P,+P)). Imag. part must be € 4995.*LN5(2).} 


mie$ccos_imag_too_small = micS$base_err_ivun + 41 
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{F +#N4#P((4+P,4+P)). Image part must be > -4095.¥*L3G(2).} 


wae 


{ MLECEXP -— Error numbers for CEXP } 


CONST 


mietcexp_arg_indef = mictbase_err_num + 425 
{F +N4+P((4+P,y4+P)). Argument indefinite.}. 


mlie$cexp_arg_inf = mictS$base_err_onum + 439 
{F +N#P((+Py+P)). Argument infinite.} 


mie$cexp_imag_ range = micSbase_err unum + 44») 
{CF +NtP€(+P594P)). ABSCLimage. part) must be << 2?,**47,} 


mietcexp_real_ range = mictbaselerrioinum + 45 
{F +N+#P((4+P,54+P)). ABS{real part) must be <¢ 4395.*LOG6(2).} 


2 
3 


{ MLECLOSG -- Error numbers for CLOG } 


CONST 


mie$S$Sclog_arg_indef = mnictbase_err_ num + 45>» 
{CF +#N4#P((4+P.5+P)). Argument indefinite.} 


mile$clog_arg_inf = mict$base_err_num + 4759. 
{F +N4#P((+P,4P)). Argument infinite.} 


mie$Sclog_abs_arg_inf = micS%base_err_nun + 48» 
CF tN+P(04+P54P)). ABSCargument) infinite} 


mlie$clog_arg_0 = mictbase_err_ num + 49 
{F +N4#P(0.0)+. One of real or image parts nust he nonzero.} 


° 
3 


{ MLECOS -- Error numbers for COS } 
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CONST 


mietScos_argq _indef = micSibase_err_ num + 535 
{F +N4+P(4P). Argument indefinite.} 


mle$cos_arg inf = micSbase_err num + 51>» 
{F +N4+P(+#P). Argument infinite.} 


mietcos arg range = mictbase_err_num + 5? 
{CF +N4+P(+#P),. ABS(argument) must be < 2.**47,} 


* 
3 


{ MLECOSD -- Error numbers for COSD } 


CONST 


mieScosd_arg_indef = micSbase_err_ num + 2475 
{CF +N+#P(4P). Argument indefinite.} 


mieScosd_arg_inf = micS$base_err_num + 248, 
{F +#N4#P(4+P),. Argument infinite.} 


mie$cosd arg range = mictbase_err_ enum + 249 
{F +#N4P(4+P). ABSlargument) must be < 2.**47.} 


e 
3 


{ MLECGSH -- Error numbers for COSH } 


CONST 


mleScosh_arg_indef = mictbase_err_ enum + 53>» 
{F +N+P(+P). Argument indefinite.} 


mie$cosh_arg_inf = micS$base_erronum + 54» 
{F +N+P(4+P). Argument infinite.} 


mieg$cosh larg range = mict$base_err unum + 55 
CF tNeP( +P). ABSCargument) must be < 4995.*LIG{2).} 
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{ MLECOTAN -- Error numbers for COTAN } 


CONST 


mie$Scotan_arg _indef = mictbase_err num + 254») 
£F +N4#P(4+P). Argument indefinite.} 


mietcotan_arg_inf = micSbase_err_unum + 255,» 
{F +N#P(+P). Argument infinite} 


miescotan_arg range = mictbase_err_num + 255s 
{F +N+P(+P). ABSCargument) must be < 2.**47.}4 


mieScotan_arg_90 = mictBbase_err_ num + 265 


{F +N#P(0.0). Argument must be nonzeros.} 
; 


{ MLECSIN =-- Error numbers for CSIN } 


CONST 


mlegcsin_arg_indef = mict$base_err enum + 55>» 
{F +N#P((+P54P)). Argument indefinite.} 


miescsin_arg_inf = micS$base_err_unum + 375. 
{F +N4PC0(+P,4P)). Argument infinite.} 


mietcsin_real_range = mic$base_err_enum + 538» 
{CF +N+P((4+P,4+P)). ABSt{real part) must be ¢ 2.**47,} 


mietcsin_imag_range = mictbase_err num + 59 
{F +N+P((+Ps4+P)). ABSCimag. part) must be < 4095.¥*L06(2).} 


> 
{ MLECSQT -=- Error numbers for CSQRT } 
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A NP EL SN EO TS ES END AN ND NY A ES A SED ED ERD GED AED IED GND ED “ND ND SD TD OED TD OE NG WE EN AE SD A ES UD SD “AE ED ND OND END ED CH END SED PCRS MED AED OED WD SURE TUNID ANED CURD AERP HEME lO UND ARO Lem salty OP 
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CONST 


mietcsart larg _indef = micS$base_err num + 69» 
{F +N4#P((4+P,5+P)). Argument indefinite.} 


ie De OO EE we 6 Be OO OH 2H OE HE HE EE HH EE om OE ah 


mlescecsaqrt_arg inf = mic$base_lerronum + 61s 
{F #N4+P((4+P,4P)). Argument infinite.} 


mietcsaqrt larg range = mics$base_err_num + 4? . 
{F #N#P((04+P,54P)). ABST argument) + ABS {real vart) infinite} 


* 
? 


{ MLEDACS == Error numbers for DACOS } 


CONST 


mleSdacos_arg_indef = mictbase_err_num + 53> 
{F +N4#P(4+P),. Argument indefinite.} 


mieSZdacos_arg_inf = micS$base err num + 54» 
{F +N#P(+P). Argument infinite} 


mieSdacos arg range = mic$base_erronum + 45 
{F #N4+P(4#P). Argument must be in range [-1.051.901.} 


2 
3 


{ MLEDASN -- Error numbers for DASIN } 


CONST 


mie$Bdasin larg _indef = mictbaselerr_unum + 54» 
{F #N+P(4+P). Argument indefinite.} 


mieSdasin_arg_inf = mict$base_err_num + 57» 
{F +N+P(+P). Argument infinite.} 


mieg$dasin_arg range = mictbase_err_num + 68 
CF #N+P(#P), Argument must be in range [€-1.091.93.} 


2 
’ 
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LAP AT SD ED “ANNE NN A ETD ENG ED SEED ED EE END AEN ND ERD SON ENS ND ND ED SEED RD AEDS SED AGP CD GRP EER GENS GED OEP CD SND SEND SRE EY ND WO AND -GED ENE ED A END VENUE GE REED A A EE AE SER WAND ANID SEE “I SEED ID SOD MOD Ale aD Ae et 


{ MLEDATN -=— Error numbers for DATAN } 


CONST 


mleSdatan_arg_indef = micSbase_err_ num + 59 
{F +NtP( +P). Argument indefinite} 


. 
P| 


{ MLEDTN2 -— Error numbers for DATAN2 } 


CONST 


mie$gdatan2_argl_indef = mictbase_err_onun + 70». 
{F +N+PCargl=+Psarg2=+P). Argl indefinite.} 


mie$datan2_arg2_indef = mictbase_err nun + 715 
CF #N4#P( argl=+P,» ar g2=+P). Arg2 indefinite.} 


mietdatan2_args_inf = micS$base_err_onum + 729 
{F +N+P(argl=+Py»arg2=4+P). Argl and arg? nay not both be infinite.} 


mie$datan2_args_0 = mictsbase_err_num + 73 
{F +N4#P(0.2020.0). One of argl or arg2 nust be nonzero.} 


2 
? 


{ MLEDCOS -- Error numbers for DCOS } 


CONST 


mieSdcos_arg_indef = micSbase_err enum + 74» 
{F +N4+P(+P). Argument indefinite.} 


mie$dcos_arg_inf = mictbase_err onum + 755. 
{F +N4+P(+P). Argument infinite.} 


mie$dcos_arg_range = mic$base_err enum + 75 
{F +N+P(4+P). ABS(argument) must be < 2.#*47.} 
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we 


{ MLEDCSH -- Error numbers for DCOSH } 


CONST 


mileSdcosh_arglindef = mic$base_lerroinum + 77» 
{F +N4+P(+P}. Argument indefinite.} 


mlieSdcosh_arg_inf = mictbase_err enum + 73>, 
{F +N¢P(4+P). Argument infinite.} 


mie$Sdcosh_arg range = mictbase_lerr_num + 79 
{F +N#P(4P). ABSlargument) must be < 4995.*L9G(2).}. 


2 
’ 


{ MLEDDIM --— Error numbers for DDIM } 


CONST 


mie$S$ddim_argl_indef = mictbase_err_num + 30D» 
{F +N#P(argl=+Psarg2=+P). Argl indefinite.} 


mleS$ddim_arg2_indef = micsbase_erronum + 8159. 
{F +#N#P( argl=+P»sarg2=+P). Arg2 indefinite.} 


mieSddim_argl_inf = micSbase_err_ num + 329. 
{F +N+PlCargl=+Psarg2=+P). Argl infinite.?} 


mie$ddim _arg2_ inf = micSbase_err onum + 33> 
{F #N+PCargl=+Psar g2=+P). Arg2 infinite.} 


mie$ddim result inf = mictbase_err unum + 84 
{F +N¢+P(argl=+P,arg2=4#P). Result infinite. 


3 
{ MLEDEXP =-— Error numbers for DEXP } 
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B1.0 CMML MATHEMATICAL ERRORS 
CONST 


mieg$dexp_arg_indef = mic$base_err_ unum + 85,5 
{F #N+P(4+P),. Argument indefinite.} 


mle$Sdexp_arg_inf = mic$base_err_inum + 85,5 
{£F +N+P(4#P). Argument infinite.} 


mleg$dexp_arg_too_big = mictbase_err nun + 875 
{F +N+P(4P),. Argument must be < 4095.#L135(2).} 


mleSdexp_arg too_small = mictbase_err_nan + 88 
{CF +N+P(+4+P). Argument must be > -4095.*L96(2).} 


* 
3 


{ MLEDIM -- Error numbers for DIM } 


CONST. 


mie$dim_argl_indef = mic$base_err_ num + 395. 
{F +N+PCargl=+?Psarg2=+P). Argl indefinite. 


mleSdim_arg2 vindef = mic$base_erronum + 90s 
{F +N+P(argil=+Psarg2=+P). Arg2 indefinite.} 


mie$Sdimlargl_inf = mictbase_err_ num + 91>: 
{CF +N+P(argl=+Psarg2=+P). Argl infinite.} 


mieSdim_arg2_inf = micS$baselerr num + 929° 
{F +N4+P(argl=+Ps,arg2=+P). Ara2 infinite. 


mietdim_resuit_inf = micS$base_lerr enum + 93 
{F +N+PCargl=+Psarg2=t+P). Result infinite.} 


. 
3 


{ MLEDINT -- Error numbers for DINT } 


CONST 


miegdint_arg_indef = micSbase_err_num + 34,5 
{F +N+P(4+P). Argument indefinite.} 
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mie$Qdint_arg_inf = micSbase_err_ num + 95 
{F +N#P(+P), Argument infinite.} 


* 
+ 


{ MLEDLN -- Error numbers for DLOS } 


CONST 


mieS$diog_arg_indef = micSbase_err_num + 95» 
{F +N+P(4P). Argument indefinite.} 


mleSdiog_arg_inf = micSbase_err num + 97> 
{F +N#P(+P). Argument infinite.} 


mie$dliog_arg_0 = mic$base_erronum + 98s 
{F +N+#P(0.0). Argument must be > 0.0.} 


mie$diog_arg_neg = mictbase_err_num + 99 
{F +N4+#P(+P). Argument must be > 0.0.} 


» 
3 


{ MLEDLOG -- Error numbers for DLOG10 } 


CONST 


mietdlog1lO_arg_indef = mict$base_err num + 10> 
{F +N+#P(+P). Argument indefinite.} 


mieSdioglO_arg_inf = mictbase_err_num + 191» 
{F +N4#P(+4+P). Argument infinite.} 


mieSdioglO_arg_0 = micS$base_err_num + 192+ 
{F +N4+P(0.0). Argument must be > 0.0.} 


mie$dioglO_arg neg = mictbase_err_num + 193 
{CF #N4+P(+P),. Argument must be > 0.0.} 


e 
3 
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{ MLEDMQD -- Error numbers for DMODD } 


CONST 


mieSdmod_argl_indef = mictbhase_err_num + 104» 
CF +N+?P(argl=t+Ps,arg2=+P). Argl indefinite.} 


mlieSdmod_arg2_indef = micSbase_err_ enum + 1055 


{F #N#P(argl=+Psarg2=+P). Arg2 indefinite.} 


mle$dmod_argl_inf = mic$base_errounum + 105». 
{F +N#Plargl=+Psarg2=4+P). Argl infinite.}- 


mieSdmod_arg2_inf = mictbase_err num + 1LO7>» 
CF #N¢P(Cargl=+Psarg2=+P). Arg2 infinite} 


mie$dmod_arg2_0 = micsbase_err_num + 108s 
{F +N+P(argl=+Psarg2=0.0). Arg2 must be nonzero.} 


mieSdmod_ args range = mictbase_ err num + 199 
{F +#N#Plargl=+Py,sarg2=+P). Argl/arg2 infinite. 


. 
3 


{ MLEDNIN -— Error numbers for DNINT } 


CONST 


mietdnint_arg_indef = mic%base_err_num + 119> 
{F +N+P(4+P),. Argument indefinite.} 


mieSdnint_arg_inf = mictbase_err_num + 111 
{F +#+N4+P(4+P),. Argument infinite.} 


» 
? 


{I MLEDPRD -- Error numbers for DPROD } 


CONST 
mle$Sdprod_argl_indef = mictbase_err_ nun #+ 112» 
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{CF #N¢PCargl=+Ps,arg2=+P). Argl indefinite.} 


mie$dprod_arg2_indef = mictbase_err_nun + 1135 
{F +N¢#P(argl=+Psarg2=+P). Arg2 indefinite.} 


mie$dprod vargl_inf = mic$baselerr_inum + 114» 
{F +N#P(Cargl=+P,arg2=+P). Argl infinite.} 


mie$dprod_arg2_inf = micthbase_lerr unum + 1159. 
{F +N#PCargl=+Ps,arg2=4+P). Arg2 infinite. 


mietdprod_result_inf = mictbase_err_ nun + 115 
{F +N+P(argl=+P,arg2=+P). Result infinite.} 


* 
3 


{ MLEDSIN -— Error numbers for DSIN } 


CONST 


mietdsin_arg_indef = mict$base_erroinum + 117>5 
{F +N4+P(4+P). Argument indefinite.} 


mieSdsinN_arg_inf = micS$base_err_onum + 113% 
{F +N#P(4+P). Argument infinite.} 


mlieSBdsin arg_range = mictbase_errounum + 119 
{F +N#P(+P). ABS(argument) must be < 2+**47.} 


® 
3 


{ MLEDSNH =-- Error numbers for DSINH } 


CONST 


mieSdsinh arg vindef = mictbase_err num + 129» 
{F +N+P(4#P). Argument indefinite.} 


mieSdsinh_arg_inf = mictbase_err_num + 121% 
{F +N+P(4+P). Argument infinite} 


miesdsinh arg range = mictbase_err_ num + 122 
{F #N#P(+4+P). ABS(argument) must be < 4995.*L95(2).} 
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ED AE AED ND AED ONE ENN ENED AND NED END ND UD AMD AND ND A ND AN ED GN ED ED END AED AP ED ED ND GRD WEEP ED OND GAED WED ED ER AP SEND GD SE. AED CARD + ED AD ED GND OED cae SED OED NN ED GEE AD NED DED AN ED AAD “ND TEND CUD VED WN ED OND 


wes 


{ MLEDSQT -—- Error numbers for DSQRT } 


CONST 


miesSdsart_arg_indef = micSbase_err_num + 1235) 
{F +#N+P (+P), Argument indefinite.} 


mieSdsgrt_larg inf = micSbaselerr num + 124) 
{F +N4+P(4+P). Argument infinite.} 


mieS$dsart larg irange = mic$base_err unum + 125 
{F +N+P(+P). Argument must be >= 0.C.} 


e 
, 


{ MLEDTAN -- Error numbers for DTAN } 


CONST 


mietdtan_arg_indef = mictbase_err unum + 126» 
{F +N4#P(4#P). Argument indefinite.}. 


mieSdtan_arg_inf = micSbase_err_num + 177s 
{F +N+P(4+P),. Argument infinite.} 


mie$Sdtan_arag range = mictbese_err_num + 128 
{CF #N+#P{4+P). ABSCargument) must be < 2.%*47.} 


2 
’ 


{ MLEDTNH -- Error numbers for DTANH } 


CONST 


mieSdtanh_arg_indef = mic$base_err num + 129 
{F +N+#P(4#P). Argument indefinite.} 
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{ MLEDTOD -=— Error numbers for DTOD } 


CONST 


mie$dtod_argl_indef = micSbase_err_num # 1305) 
{F +N¢PCargl=+Ps5arg2=+P). Argl indefinite.} 


mietdtod_arg2_indef = mict$base_erronum + 1315 


{TF +N+P(argl=+Psarg2=+P). Arg2 indefinite.} 


mie$Sdtod_argllinf = mictbaselerronum + 1329. 
{F +N+PCargl=+Psarg2=+P). Argl infinite} 


miesdtod_arg2_inf = mlctbase_err enum + 133, 
CF +NtP(argl=+Psarg2=+P). Arg2 infinite.} 


mietidtod_result_indef = mic$base_err_nun # 134» 
{CF +N+P(argl=0.Osarg2=+P). If argl=0.0» arg? must be > 0.0.} 


mie$Sdtod varglineg = mictbase_err num + 135,» 
{F +N+P(argl=+Psarg2=+P). Argl must be >= 9.0.4. 


mie$Sdtod_result_inf = micS$base_ err onum + 136 
{F +N+Plargl=+Psarg2=+P). Result infinite.} 


2 
3 


{ MLEDTOI -- Error numbers for DTOI } 


CONST 


mle$dtoi_argl_indef = mictbase_err_num + 137, 
{CF +N+Plargl=+P»,arg2=+P). Argl indefinite.} 


mieSdtoi_argl_inf = mictbase_err enum + 138, 
{F +N+P(argl=+P,arg2=+P). Argl infinite. 


mie$Sdtoi_result_indef = mictbase_err nun # 139, 
{F 4+N4#P(argl=0.0,arg2=4+P). If argl20.0» arg2 nust be > 0.0.} 


miesSdtoi_result_inf = mictSbase_err num + 149 
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{F +N+PCargl=t+Ps,arg2=+P)-. Result infinite.} 


3 
{ MLEDTOX =-— Error numbers for DTOX } 
CONST 


mlie$Sdtox_argl_indef = micSbase_err num + 141» 
{F +N4+PCargl=+P,arg2=+P). Argl indefinite.} 


miegdtox_arg2_indef = micsbase_err_num + 1425 
{F +#N+P(argl=+4+P,sarg2=+P). Arg2 indefinite.} 


mie$dtox_argl_inf = micSbase_err enum + 143» 
{F +N+P(argl=+Psarg2=+P). Argl infinite.} 


mieSdtox_arg2_inf = mictbase_err_enum + 144, 
{F +N+#+P(argl=+P,s ar g2=+P). Ara2 infinite.} 


mlie$?Qdtox_result_indef = mictbase_err_nun + 145, 
{F +N#+P(argl1=0.0sarg2=+P). If argl=0.0» arg? must be > 0+0.} 


mieSdtox_arglineg = mictbase_err num + 1459 
{F 4#N4+P(argl=+Psarg2=+P). Argl must be >= 9.9.2} 


mieSdtox_result_inf = mictbase_lerronum + 147 
{F +N+P(argl=+Ps,arg2=+P). Result infintte.} 


2 
5 


{ MLEDTOZ -— Error numbers for DTOZ } 


CONST 


miesdtoz_argl_indef = mictbase_err enum + 14385. 
{F +#N+P(4+P59(+P54P)). Argi indefinite.}. 


mlieSdtoz_arg2_indef = mictbase err onum + 1495. 
{F +N+P(+P,(+P54+P)). Arg2 indefinite} 


mieSdtoz_argl_inf = mictbase_err_num + 159» 
{CF #N4+P(+#P_5(+P,54+P)). Argl infinite.} 
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mieSdtoz_arg2_inf = mictbhase_err_num + 151» 
{F +N4+P(4+P59(+Py4P)). Arg2 infinite.} 


mie$Sdtoz _resultlindef = micS$base_err_ nun + 1525 
{CF +N4+P(0.09(+Ps4+P)). Arg2 must be > 0.3.} 


mleSdtoz_argl_neg = mictbase_erreonum + 153, 
{F +N4+P(4+P5(+Py54+P)). Argl must be >= 0.9.4} 


mie$Sdtoz_result_inf = mic$base_err_num + 154 
{F +tN+P(+P,(+P54+P)). Result infinite.} 


» 
¥ 


{ MLEERF -- Error numbers for ERF } 


CONST 


mieterf_arg_indef = micSbase lerr enum + 155 
{F +N4+P(4P). Argument indefinite.} 


2 
+ 


{ MLEERFC -- Error numbers for ERFC } 


CONST 


mie$erfc_arg_indef = mictébase_erroinum + 15» 
{F +N¢#P(4+P),. Argument indefinite.} 


mieSerfec larg range = mic$base_err unum + 184 
{CF tN+P(4+P). Argument must be <= 53,.0374219959898.} 


s 
, 


{ MLEEXP -- Error numbers for EXP } 
CONST 
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mieSexp_arg_indef = micSbase_erronum + 1575 
{F +N#P(4+P). Argument indefinite.} 


miesgexp_arg_inf = micSbase lerro unum + 15385 
{CF +N+P(4P). Argument infinite.} 


miestexp_arg too _big = micS$base_lerroinum + 159s. 
{F 4#N4#P(+P). Argument must be ¢ 4095.¥*L75(2).} 


mle$Sexp_arg_too_small = mictbase_err nun + 150 
{F +N#P(4+P). Argument must be > ~-4095.*L95(2).} 


° 
3 


na 


{ MLEEXTB -- Error numbers for EXTB } 


CONST 


mieSextb_argl_neg = mic$base_err_num + 257» 
{F +N+P( argl=+P,sarg2=+P). Starting bit nust be >= 0.} 


mietextb arg2_ neg = mictbhase_err_num + 258, 
{F +N+P(argl=+P,yarg2=+P). Length must be >= 9.2} 


mieZextblargl range = mictbase_err_ num + 259,» 
{F +N+P(argl=+P,arg2=+P). Starting bit nust be < 64.2} 


mieSextb_range = mic$base_err_onum + 260 
€{F +N+PCargl=+Psarg2=+P). Starting bit + Length must be ¢=44.} 


2 
’ 


{ MLEIDIM -— Error numbers for IDIM } 


CONST 


mieSidim_result_linf = mic$base_err_inum + 161 
{F +N+¢P(argl=+Psarg2=+P). Arithmetic over filow.} 


° 
g 
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{ MLEIONI -— Error numbers for IONINT } 


CONST 


mieSBidnint_arg_indef = mlctbase_err_nun + 1429 
{LF +N+P(+P), Argument indefinite.} 


mieSidnintlarg_inf = micS$base_lerr num + 153 
{CF +N4#P(4#P). Argument infinite.} 


° 
9 


{ MLEINSB -- Error numbers for INS8 } 


a a es 


CONST 


miesginsb_argl_neg = mict$base_err_num + ?451>5 
{CF +N¢+PCargl=+P,arg2=+P). Starting bit nust be >= 0.} 


mieSinsblarg2_neg = micthase_err_onum + 252» 
{F +N+#P( argl=+P,s ar g2=+P). Length must be >= 9.} 


mieSinsb_argl_range = micsbase_err_num + 2635 
{F +N+PCargl=+P,arg2=+P). Starting bit nust be ¢ 64,} 


mleSinsb range = mictbase_erreinum + 26% 
{CF +N+PCargl=+P,sarg2=tP). Starting bit + Length must be <=64,} 


. 
3 


{ MLEITOD -- Error numbers for IT9D } 


CONST 


mieSitod_arg2_indef = mictbase_erronum + 1545 
{F +N+Plargl=+#+P,sarg2=+P). Arg2 indefinite.} 


mieSitod_arg2_inf = mictbase_err_num + 155% 
{F +N+P( argi=+P,»arg2=+P). Arg2 infinite.3 


mleSBitod_result_indef = mic%$base_err_ nun + 155% 
{F +N#P{argl=Osarg2=4+P). Arg2 must be > 9.5.}- 
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mletitod arglineg = micSbase_err_ num + 167» 
{F +N+P(argl=+P,arg2=+P). Argl must be >= 0.5.2}. 


miesitod_result_inf = mic$base_err_ num + 158 
{F +N+P(argl=+P,arg2=+P). Result infinite.} 


3 
{ MLEITOI -— Error numbers for ITOI } 
CONST 


mieSitoi_l-result_inf = micS$base_err num + 159»9° 
{F #N¢P(argl=4+P,arg2=+P). Arithmetic overfiow.} 


2 O26 SH OH we ee ok HE BH OH OH BH HH HH OH He Ke he 


miesitoi_result_indef = mictbase_err_nun + 170 
{F +N+P(argl=Osarg2=+P). Arg2 must be > 0.0.2} 


* 
9 


{ MLEITOX -- Error numbers for ITOX } 


CONST 


mleSitox_arg2_indef = mictbaselerrinum + 171s 
{F +N+PCargl=+Psarg2=+P). Arg2 indefinite. 


mieSitox _arg2_inf = micS$base_err onum + 1725. 
{F #N4+P(argl=+Psarg2=+P). Arg2 infinite.} 


mieSitox _result_indef = mictbase err nun + 173» 
{F #N#P{argl=Osarg2=+P). Arg2 must be > 3.9.} 


mletitox argl_neg = micS$base_erronum + 174> 
{F +N#Plargl=+Psarg2=+P). Argil must be >= 0.9.} 


mieSQitox_result_inf = mictSbase_err_num + 175 
{F +N+P(argl=+Psarg2=4+P). Result infinite.4 


» 
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{ MLEITGOZ -— Error numbers for ITOZ } 


CONST 


miesitoz_arg2_indef = mict$base_erreinum + 1765 
{CF +N4¢P(+Py(4+P5+4+P)). Arg2 indefinite.} 


mieSitoz_arg2_inf = micsbase_err_num + 177» 
{F #N+P(+P5(+P54+P)). Arg2 infinite.} 


miestitoz_result_indef = mictbase_err_ nun + 173» 
{F +N#P(05(+P,5+P))2 Arg2 must be > 0.0.} 


mietitoz_result_inf = micS$baselerr_num # 179» 
CF +NtP(+Py(4+Py4P)). Result infinite.} 


mieS$itoz_argl_neg = mictbase_err_ enum + 189 


{F +N4+P(4P5(4+P54+P)). Argl must be >= 0.9.3 


2 
, 


{ MLEMOD -- Error numbers for MOD } 


CONST 


mlesmod_arg2_0 = mictbase_err_num + 181 
{F +#N+P(Cargl=+P,arg2=0). Arg2 must be nonzero.} 


° 
> 


{ MLENINT == Error numbers for NINT } 


CONST 


mletnintlarg_indef = mictbhase_lerr_ num + 132» 
{F +N+#P(4+P),. Argument indefinite.} 


mieSnint_larg_inf = mictbase_err_ enum + 183 
{F #N+P(4+P). Argument infinite} 


3 
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{ MLESIN -— Error numbers for SIN } 


CONST 


mie$Ssin_arg_indef = mictbase_err_num + 135, 
{CF +#N+P(4+P),. Argument indefinite.} 


mieSsin_arg_inf = milc$base_lerr_eunum + 185% 
{F +N#P(4#P). Argument infinite.} 


mleS$sin_arg range = mict$base_err_enum + 187 
{F #N+P (+P). ABSlargument) must be < 2.**47,.} 


* 
3 


{ MLESIND -- Error numbers for SIND } 


CONST 


mie$sind_arg_indef = mic$base_err_num + 244s 
{F +N+P(4+P). Argument indefinite.} 


mieSsind_arg_inf = mic$base_err_num + 245, 
{F +N#P(4+P). Argument infinite.} 


miestsind_arg range = mictbase_err unum + 246 
CF +N#P(+P),. ABSCargument) must be < 2.**47,} 


* 
3 


{ MLESINH -- Error numbers for SINH } 


CONST 


mie$sinhlarg_indef = mic$base_err_num + 138, 
{F +N¢P(+P). Argument indefinite.} 


mieSsinh larg _inf = micS$base_err_ num + 139» 
{F +N#P (+P). Argument infinite.} 
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mieSsinh arg _range = mict$base_err_ num + 190 
{F +N+#P(4+P). ABSlargument) must be < 40952*L75(7).} 


Fd 


{ MLESQRT -- Error numbers for SQRT } 


CONST 


mie$sartlarg_indef = mict$base_err num + 1915 
{CF #N+#P(+P). Argument indefinite.} 


mileSsaqrtlarg inf = micS%base_err_ num + 1929 
{F +N+P(+P). Argument infinite.} 


mietsqrt_arg neg = mic$base_err_num + 193 
{F +N+P(4+P). Argument must be >= 0.0.} 


we 


{ MLETAN -~ Error numbers for TAN } 


CONST 


mle$tan_arg_indef = micSbase_errounum + 194» 
{F +N4+P(+P),. Argument indefinite.} 


mieS$tan_arg_inf = mictbase_err num + 195». 
{CF +N4P(4+P). Argument infinite.} 


miettan_arg range = mict$base_lerr num + 195 
{F +N4P(4#P). ABS(argument) must be < 26#*47.} 


° 
? 


{ MLETAND -— Error numbers for TAND } 
CONST 
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mieStand_arg_indef = mict$base_err num + 259,» 
{F +N+#P(4P). Argument indefinite.} 


mieStand_arg_inf = mictbase_err num + 251>5 
{F +N+P(4+P). Argument infinite.} 


mieStand_arg_range = micS$base_err_ num + 2525 
{F +tN+P(+P). ABSCargument) must be < 2.**47.} 


mie$tand_result_inf = mictbase_errunum + 253 
{F +N#P(4+P). Argument must not be an exact odd nultipie of 90.0.} 


3 
{ MLETANH -=- Error numbers for TANH } 


CONST 


mieStanh_arg_indef = mic$base_err_ num + 197 


{F +N4+P(+P). Argument indefinite.} 


2 
? 


{ MLEXTOD -— Error numbers for XTOD }. 


CONST 


mieSxtod_argl_indef = mict$base_err_num + 198». 
{F +N#P(argl=+Psarg2=+P). Argl indefinite.} 


mie$Sxtod_arg2_indef = micS$base_err_ num + 199, 
{F +N¢#P(argl=+P,»arg2=+P). Arg2 indefinite.} 


mietxtod_argl_inf = micS%base_err num + 200» 
{F +#N+PCargl=+Psarg2=+P). Argl infinite.} 


mie$xtod_arg2_inf = mictbase_err_num + 2015 
{F +N4#P( argl=+Psarg2=+P). Arg2 infinite. 


mieSxtod_result_indef = micS$base_err nun + 2925 
{F +N#P(arg1=0.O0sarg2=+4+P). Arg2 must be >= 9.9.}- 


mietxtod_argi_neg = mictsbase_err_ num + 2935 
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{F +N+P(argl=+P,» ar g2=+P). Argl must be >= 0.9.7} 


mletxtod_result_inf = mictbase_err_num + 204 
{F +N+P(argl=+P,arg2=tP). Result infinite.} 


2 
3 


{ MLEXTOI -- Error numbers for XTOI } 


CONST 


mie$xtoi_argl_indef = micS$base_err_ num + 2055 
{CF +N+Plargl=+Ps,arg2=+P). Argl indefinite.} 


mie$Sxtoi_argl_inf = micSbase_err_ enum + 29h» 
{F +N+P(argl=+Pyarg2=4+P). Argl infinits.4 


mie$xtoi_result_indef = micS$base_err nun + 297>5 
{F 4+N+4+P(argl1=0.Osarg2=+P). Arg2 must bea >= 9.} 


Py ed 


ae ae 


mieSxtoilresult linf = micS$baselerroinum + 203 
{LF #N¢+PCargl=+Psarg2=+P). Resuit infinite.} 


» 
9 


{ MLEXTOX -- Error numbers for XTOX } 


CONST 


mieSxtox_argl_indef = micSbaselerronum + 299° 
{CF +N+P( argl=+P,arg2=+P). Argl indefinite.} 


mietxtox_arg2_indef = mict$base_err num + 2199 
{F #+N+P(argl=+Psarg2=+P). Arg2 indefinite.} 


mietxtox_argl_inf = mictBbase_err_ enum + 211> 
{F +N4?(Cargl=+P,argqg2=+P). Argl infinite. 


miegxtox_arg2_inf = mictbaselerronum + 212% 
{F +N+P{argl=+P,arg2=+P). Arg2 infinite.} 


mietxtox_result_indef = mic$base_err nun + 213+ 
{F +N+P(argl=0.0sarg2=+P). Arg2 must be > 9.09.3 
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mie$xtox_argl_neg = mic#base_err_num + 214» 
{CF +N+P(argl=+P,arg2=+P). Argl must be >= 9.9.} 


mieSxtox_result_inf = micSbase_err_onum + 215 
CF +Nt+PlCargl=+Psarg2=+P). Result infinite.} 


» 
2 


{ MLEXTOZ -— Error numbers for XTOZ } 


CONST 


mieSxtoz_argl_indef = micSbase_err_num + 214/» 
{F +N+P(4+P,(+P54+P)). Argl indefinite.} 


miet$xtoz _arg2_indef = mic$base_err_num + 2175. 
{F +Nt+P(4+P5(4+P94+P)). Arg2 indefinite.} 


mie$xtoz_argl_inf = mic#base_err_onum + 213, 
CF +N+P(4+P>(+P54+P)). Argl infinite.} 


mile$Sxtoz_arg2_inf = mictbase_err_num + 219s 
{F +N+P(4+P59(4+P5o4+P)). Arg2 infinite.} 


mlesxtoz_result_indef = mlcsbase_err_nun + 2205. 
{LF 4+N4+P(0.05(4+P54+P)). Arg2 must be > 0.9. 


mieSxtoz_resuit_inf = micSbaselerr oinum + 2217 
CF +N+P(4P5{(+P94P)). Result infinite} 


* 
3 


{ MLEZTOD -- Error numbers for ZTOD } 


CONST 


mlegztod_argl_indef = mictbase_err_ num + 222, 
CF +N4+P((+P54+P)54+P). Argl indefinite.}. 


mieSztod_arg2_indef = mict$base_err enum + 2235 
{CF +N#P((4+P,54P)54+P). Arg2 indefinite.} 
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mie$ztod_argl_inf = mictbase_err enum + 224, 
{F +N+P((+P,)+P)54P). Argl infinite.} 


mileSztod_arg2_inf = mictbase_err_num + 225, 
{F +#N4+P((+P54P)5+P),. Arg2 infinite.} 


mie$ztod_result_indef = mIictbase_err_ nun + 226» 
{F +N+#P(0.09 +P). Arg2 must be > 0.0.} 


mietztod_result_inf = mictSbase_err enum + 227 
{F #N+P((+P54+P)54P). Result iInfinite.} 


2 
? 


{ MLEZTOI -- Error numbers for ZTOI } 


CONST 


mleS$ztoi_argl_indef = mictbase_lerr num + 223, 
{CF 4#N#P((+P,+P)54P). Argl indefinite.} 


mietztoi_argl_inf = micS%base_err_ num + 229% 


{F FNtP(1+Py tP dy tP) Argl infinite.} 


mie$ztoi_result_inf = mictbase_err_num + 2305 
{CF #N+P(04P,4P)54P). Result infinite.} 


miesztoi_resuilt_indef = micthase_err unun + 231 
[TF +N+P(0.09+4P), Arg2 must be > 0.0.} 


2 
3 


{ MLEZTOX -- Error numbers for ZTOX } 


CONST 


mieSztox _argl_indef = mict$base_lerr onum + 2329 
{F +N+P((4+P94+P)5+4+P). Argl indefinite.} 


mile$ztox_arg2_indef = mict$base_erreinum + 233s 
{CF #N+PC(+P,4+P),+P). Arg2 indefinite.} 


mietztox_argl_inf = mictbase_err_ num + 234» 
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{F #N#P((+P,4¢P)54P). Argl infinite} 


mieSztox_arg2_inf = mict$hbase_err_num + 235» 
{F +N4+P((+Py4+P)54+P). Arg2 must oe > 0.9. 


mietztox_result_indef = mictbase_err_nun + 236s 
{F +N#P(0.09+P). Arg2 must be > 0-0.} 


mleSztox_result_inf = mict$base_erroinum + 237 
{F +N+P((+Ps+P),+P). Result infinite.} 


3 


{ MLEZTOZ -~- Error numbers for ZT0Z } 


CONST 


mieSztoz_argl_indef = micS$baselerroinum + 233» 
CF +NtP((+PstP)o(+P>o4P)). Argl indefinits.} 


mie$ztoz_arg2_indef = mict$base_err_onum + 239» 
{F +N4+P((4+Py4P)5(4+P54P)),. Arg2 indefinite. } 


om wae 


ce ae 


mieSztoz_argl_inf 
IF +N4+P((4+P54P), ( 


= mictbase_err num + 2405 
+#Py>4#P). Argl infinite.?> 


mie$Sztoz_arg2_inf = mic$base_err_ num + 2415 
{LF +N+#P((+P_94P)5(4+#PstP)). Arg2 infinite.} 


mie$Sztoz_result_indef = micthase_err nun + 2425 
{CF +#N+P(0.05(+P,4+P)). Argl must be nonzero,.} 


mlieSztoz_result_inf = mictbase_err_num + 243 
{F +tN+P( (+P, 4P),{+P54P)). Result infinite. 


2 
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The following is a listing of the file used to convert the CMML 
common deck PL from MADIFY to SCU format. 


OLD_NAME=MLC BEN 

OLD_NAME=MLD3$788 
OLD_NAME=MLD$78F 
OLD_NAME=MLD$78I 
OLD_NAME=MLD$87B 
OLD_NAME=MLD$87F 
OLD_NAME=MLD$871 
OLO_NAME=MLD$BDP 
OLD_NAME=MLD$BIT 
OLO_NAME=MLDSCCI 
OLD_NAME=MLOSCF 

OLD_NAME=MLDSCFI 
OLD_NAME=MLDSCEN 
OLD _NAME=MLDSCIF 
OLD_NAME=MLOSCMN 
OLD_NAME=MLO$COM 
OLD_NAME=MLDSIBN 
OLD_NAME=MLDSIFM 
OLD_NAME=MLOS$IFN 


NN=MLCSBASE_LERR_NUM MN=MLCBEN 

NN2MLPS170_TO_LLSO_BINARY MN=4L0$788 
NN=MLPS$170_TO_180_FLOATING MN=MLDS78F 
NN=MLP$170_TOL180_INTEGER MN=MLDS78I 
NN=MLPS$180_TO_L170_BINARY YN=¥L0$87B 
NN=MLP$130_TO_L170_FLOATING MN=MLOSB7F 
NN=MLPSIBO_TOLI7O_LINTEGER WN=4LD¢871 
NN=MLPSBDP_CONVERSTION | MN=MLDS$BDP 
NN@MLPSBITS. TO_LWAND_FROM_ BOP? WNa¥MLDSBIT 
NN=MLPSCOMPARE_COLLATED MN=MLDSCCY 
NN=MLPSCOMPARE_ FLOATING MN=MLOSCE 


NN=MLPSCONVERTLFLOAT_LTOLINTESE AYN=4LDSCFI 
NN=MLPSCOMPUTE_FLOATING_NUMBER MNEMLDSCEN 
NN=MLPSCONVERT_LINTEGER_LTOLFLOAT MN=MLOSCIF 


NN=MLPSCOMPARE_BDP MN=4LDSCMN 
NN=MLPSCOMPARE_BYTES MN=4LODSCOM 
NN=MLPSINPUT_BASE NUMBER MN=MLDSIBN 


NN=MLPSINPUT_LFLOATING_MANTISSA MN=MLDSIFM 
NN=MLPSINPUT_LFLOATING NUMBER MN=4LDSIFN 


aan ae 
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OLDLNAME=MLDSII NN=MLPSINPUTLINTEGER MN=MLDSIT 

OLDLNAME=MLDS$IUD NN=MLPSINPUT_LUNPACKED_DECIMAL MN=¥LDSIUD 
OLDLNAME=MLDSMOV NN=MLPSMOVE_BYTES MN=4LOSMOV 
OLDLNAME=MLDSOBN NN=MLPSOUTPUT_BASE_NUMBER MN=MLDSOQBN 
OLDUNAME=MLODSO0FD NN=MLPSOUTPUTLFLOATING_ DIGITS MN=4LDSOFD 
OLDLUNAME=MLDSOFN NN=MLPSOUTPUT_LFLOATING_NUM3ER MN=4LDSOFN 


OLDLNAME=MLD$OI NN=MLPSOUTPUT_INTEGER MN=MLDSOT 

OLDLNAME=MLDSRFN NN=MLPSROUND_FLOATING NUMBER MN=MLDSREN 
OLOLNAME=MLD$SCA NN=MLPSSCAN_BYTES MN=4LDSSCA 
GLOLNAME=MLDSSFN NN=MLPSSCALE_FLOATING_ NUMBER MN=MLODSSEN 
OLDLUNAME=MLOSTEX NN=MLPSTEST_LFOR_EXCEPTION MN=MLOSTEX 
OLDINAME=MLDSTRA NN=MLPSTRANSLATE_BYTES MN=MLOSTRA 
OLDLNAME=MLOSTYP NN=MLTSALL_LCMML_UTYPES MN=4LOSTYP 


OLOLNAME=MLDECC NN=MLESEXCEPTION_ CONDITION TIDES MN=MLDECC 
OLDLUNAME=MLEACGS NN=MLESACQOS MN=MLEACOS 
OLDLUNAME=MLEAINT NN=MLESAINT MN=MLEAINT 
OLDLUNAME=MLEALN NN=MLESALOG MN=MLEALN 
OLOLNAME=MLEALOG NN=MLES$AL0G10 MN=MLEALOG 
OLDUNAME=MLEAMOD NN=MLESAMOD MN=4LEAMOD 
OLDLNAME=MLEANIN NN=MLESANINT MN=4LEANIN 
OLOD_NAME=MLEASIN NN=MLESASIN MN=MLEASIN 
OLD-NAME=MLEATAN NN=MLESATAN MN=MLEATAN 
OLDUNAME=MLEATN2 NN=MLESATAN2 MN=MLEATN2 
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OLDUNAME=MLEATNH NN=MLESAT ANH MN=MLEATNH 
OLDUNAME=MLECABS NN=MLESCABS MN=4LECABS 
OQLDLNAME=MLECCOS NN=MLESCCOS MN=4LECCOS 
OLDLNAME=MLECEXP NN=MLESCE XP MN=¥4LECEXP 
OLOLNAME=MLECLOG NN=MLESCLOG MN=4LECLOG 
DLDLNAME=MLECOQS NN=MLES$COS MN=MLECOS 

OLDLINAME=MLECOSD NN@MLES$COS) MN=MLECOSD 
OLDLNAME=MLECQSH NN=MLESCOSH MN=4LECOSH 
OLDUNAME=MLECSIN NN=MLESCSIN MN=MLECSIN 
OLDLUNAME=MLECSQT NN#MLESCS ORT MNa4MLECSQT 
QOLDLUNAME=MLEDACS NN=MLESDACOS MN=MLEDACS 
OLDUNAME=MLEDASN NN=MLESDASIN MN=4LEDASN 
OLDLNAME=MLEDATN NN=MLESDAIN MNS4LEDATN 
OLOLNAME=MLEDCOS NN=MLESDCOS MNe4LEDCOS 
QLOLNAME=MLEDCSH NN=MLESDC OSH MN=MLEDCSH 
OLDUNAME=MLEDDIM NN=MLES$DDIM MN=4LEODIM 
OLDUNAME=MLEDEXP NN#MLESDE XP WNeMLEDEXP 
QOLDLNAME=MLEDIM NN=MLESDIM MN=MLEDIM 

OLDLNAME=MLEDINT NN=MLESDINT MN@OMLEDINT 
OLDLNAME=MLEDLN NN2MLESDLOG YN24LEDLN 

OLDLNAME=MLEDLOG NN=MLE$DLOG10 YN=MLEDLOG 
OLD_-NAME=MLEDMOD NN=MLESDMOD MN="4LEDMOD 
DLDLNAME=MLEDNIN NN=MLESDNINT MN=M4MLEDNIN 
OLD_NAME=MLEDPRD NN=MLESDPROD MN=4LEOPRD 
OLDUNAME=MLEDSIN NN=MLESDSIN MN=MLEDSIN 
OLDUNAME=MLEDSNH NN=MLESDSINH MN=4MLEDSNH 
OLDLNAME=MLEDSQT NN=MLESDSOQRT WN=4LEDSOQT 
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OLDLUNAME=MLEDTAN 


OLDLNAME=MLEDIN2 NN=MLESDATAN2 WN=4LEDITN2 
QLDLNAME=MLEDTNH NN=MLESOT ANH YN=MLEDTNH: 
OLDUNAME=MLEDTOD NN=MLESDTQODO MN=4MLEDTOD 
OLDLNAME=MLEDTOI NN=MLESOTOI MN=MLEDTOTL 
OLDLNAME=MLEDTOX NN=MLESDTOX MN2=4LEDTOX 
OLDLNAME=MLEDTOZ NN=MLESDTOZ MN=MLEDTOZ 
ULDLUNAME=MLEERF NN=MLESERF MN=MLEERF 
GLDLNAME=MLEERFC NN=MLESERFC MN=MLEERFC 
OLDLNAME=MLEEXP> NN=MLESEXP MN2MLEEXP 
DLDINAME=MLEIDIM NN=MLESIDIM MN=MLEIDIM 
QLDINAME=MLETONI NN=MLESTONINT MN=MLETONI 
OLDINAME=MLEITOD NN=MLESITOD MN=¥4LEITOD 
OLDINAME=MLEITOI NN=MLESITOI MN=MLEITOL 
OLDINAME=MLEITOX NN=MLESITOX MN=MLETTOX 
OLDLINAME=MLETTOZ NN=MLESITOZ MN=MLEITOZ 
QOLDINAME=MLEMOD NN=MLESMOD MN=4LEMOD 
OLOLNAME=MLENINT NN=MLESNINT MN=MLENINT 
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